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DATABUS 11, DB11SYS, is a high level business language 
compiler designed for use with the Datapoint Diskette Operating 
System, DOS,C, This User's Guide describes the characteristics ana 
use of the DATABUS 1100 Compiler* The same system is provided by 
DBllASYS for the Cartridge Disk Operating System, DOS,A; and by 
D811BSY3 for the Mass Storage Disk Operating System, DOS,B, All 
references in this manual to D0S,C apply equally to DOS,A and 
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CHARTER 1, INTRODUCTION 


DATASUS 1100 is similar to theDatapoint DATASHARE 3 Multiple 
Terminal computer system# The primary difference is that 
DATASHARE 3 supports multiple remote terminals whereas DATABUS 
1100 supports only the processor console as an operator 
input/output device# DATA8US 1100 also handles a high-speed line 
printer or servo printer and provides indexed-sequentia 1 as well 
as random and sequential file accessing# thus providing a powerful 
data entry and processing facility. 

In addition# DGS.C with its variety of utility ana higher 
level language systems may be used in conjunction with DATABUS 
1100# enaoling processing of tasks not appropriate to the DATABUS 
1 anguage. 

Using virtual memory techniques# DATABUS 1100 allows programs 
with a 16K byte area for executable statements. This# in 
combination with the ability of the compiler to accommodate over 
3400 labels# enables the user to create and use programs of over 
one hundred pages (a very large high level language program). To 
provide rapid program execution# the data area of the executing 
program is maintained in main memory and not swapped. 

Any of the Datapoint system printers may be connected to the 
DATABUS 1100 configuration# Printer output is buffered to allow 
maximum program execution speed. 

All program execution in DA1ABUS 1100 occurs In the DATABUS 
language. Console command 1nterpretation is handled in a special 
DATABUS program# the MASTER program which enables the user to 
completely define his own console command and security system# 

Program generation is performed under the Flexible Disk 
Operating System# DOS*C# using the general purpose DUS editor and 
DATABUS 1100 compiler. 
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CHAPTER 2, STATEMENT STRUCTURES 


There are five basic types of statements in DATABUS 1100s 
comments compiler directive* file declaration* data definition* 
and program execution, 

2 •l Comment s 

Comment lines have a period* asterisk:* or plus sign in the 
first column* and may appear anywhere in the program. Comments 
are most useful in explaining program logic and subroutine 
function and parameterization to enable someone reading through 
the program to more easily understand its logic. The comment 
which begins with an asterisk will be printed at the top of the 
next page it fewer than 12 lines are available at the bottom of 
the current page. This allows comments to be presented on the 
same page as the program statements without having to know where 
the listing currently stands on the page. The comment which 
begins with a plus sign will always be printed at the top of the 
next page. This allows major sections of the program to be 
started at the top of a page. Use of the asterisk at the 
beginning of each section or subroutine description is encouraged 
since this greatly enhances program readability. Use of the plus 
sign should be cautious since it can easily waste great quantities 
of paper, 

2,2 Compiler Directives 

Compiler directives enable inclusion of other files in the 
current compi1 ation and definition of the absolute value of a 
svmoolic name for use in tab positioning in file I/O statements 
and column positioning in I/O statements. The inclusion directive 
allows a large program to be broken into several files for ease in 
editing. Another useful aspect is that a common set of 
subroutines or data definition blocks can be included into a 
number of different programs, Iherefore* when a change is made In 
one of the routines or in the definition of a data item* only one 
file need be modified* reducing both the amount of manual labor 
involved and the chance for error, Bee Section 8 (Program 
Generation) for more complete information on tne use of compiler 
aireeliv e s. 
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2,i Hie declarations and data definitions 

File declaration and data definition statements must occur 
before any program execution statements and are used for setting 
up all of the logical tiles and data vanaoles in the program* 

All file declaration and data definition statements must have 
labels* All compiler directive# file declaration# and data 
definition statement labels must be unique among themselves* 
Program execution statements must appear after any file 
declaration or data definition statements and may or may not have 
labels* The labels on program execution statements may be the 
same as labels on the compiler directive# file declaration# and 
data definition statements* Program execution always begins with 
the first executable statement* 

2.4 Program execution 

Labels for variables and executable statements can consist of 
any combination of up to eight letters and digits beginning with a 
letter* The following are examples of valid labels: 

A 

ABC 
A1BC 
Q1234 
ABCOEF 
6 IGIABEL 

1 he following are examples of invalid labels; 

HI#JK (contains an invalid character) 

4D0G8 (does not begin with a letter) 

Statements other than comments consist of a label field# an 
operation field# an operand field# and a comment field* The label 
field is considered empty if a space appears in the first column 
of the line* The operation field denotes the operation to be 
performed on the operands which follow it* In many operations# 
two operands are required in the operand field* These operands 
may be connected either by an appropriate preposition (BY# TO# OF# 
FKU' v, r IN# irt 1TH# USING# or 1MU) or a comma. One or more spaces 
should follow each element in a statement except where a comma is 
used# in which case the comma must be the terminating character of 
the previous element and may be followed by any number (including 
zero) of spaces* The following are all examples of valid 
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LABELl ADD PCS TO TOTAL 

LABELS ADD PCS OF TOTAL THIS IS A COMMENT 

LABEL3 ADD PCS, TOTAL 
LABELS ADD PCS,TOTAL 

Note that any preposition may be used even if it does not 
m* a k e sense in English* the following are examples of invalid 
statements; 

LABEL! ADD PCS TOTAL (missing connective) 

LABELS ADD PCS ,TOTAL (space before comma) 

Certain DATABUS 1100 statements allow a list of items to 
follow the operation field. In many cases, this list can be 
longer than a single line, in which case the line must be 
continued. This is accomplished ny replacing the comma that would 
normally appear in the list with a colon and continuing the list 
on the following line. For example, the two statements; 

display a,b,c,d; 

E, F , 6 

DISPLAY A,8,C,D,E,F,G 
will perform the same function, 
d ,5 Literals 

In an effort to reduce the amount of data area needed by a 
program, Hterals are allowed in certain statements which would 
otherwise need constant data in the user's data area. The 
instructions which can contain literals are; STOKE, PULLOUT, 

CHAIN, MOVE, APPEND, MATCH, ADD, SUB, MULT, DIV, COMPARE, OPEN, 
PREPARE, REPLACE, CHECK 11, ano CHECK 10, In all except I/O 
statements and the CHECK verbs, the literal must be the first 
operand. The literal is always enclosed within a pair of double 
quotes (see the following section on the forcing character) and 
may be from 1 through 40 characters in length (excluding the 
quotes), Nhen a literal is used as a string variable, its 
formpointor is always equal to one ana its logical length always 
points to the last character that is quoted. Examples of the 
statements which can contain literals follow! 

STORE "APPLES" In TCI X OF SI,32,35 

ROLLOUT "CHAIN FIX22" 

CHAIN "NEXTPROG" 
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OPEN FILE1#"DATAF1LE" 

PREPARE F1LE1, h USERDATA" 

MOVE "MESSAGE" 7G M3442 

MOVE "100.b5" TO VALUE 

APPEND TO STRI 

MATCH "YES" TO ANSWER 

ADO "23.A6" TO TOTAL 

SUB "1" FROM COUNT 

MULT ",1" BY TAX 

DlV "33.3333" INTO FACTOR 

COMPARE "10" TO LINENUMB 


2,0 The forcing character 

The pound sign (A) is interpreted by the compiler as a 
forcing character in any quoted item which can contain multiple 
characters. The character immediately following the pound sign is 
used in the quoted item simply as a character value regardless of 
its significance to the compiler. Thus# the pound sign itself and 
the quote t") may be used in DATABUS 1100 statements* For 
example# 


DISPLAY "CUSTOMER*# SHOULD BE #"2222#"" 
would display exactly: 

CUSTOMER# Should BE "222?" 

on the screen. Note carefully the wording used aoove that 
excludes the cases of RESET# CMATCH# and CMQVt since those 
operations cannot have quoted items which contain multiple 
Characters. For example# 

CMQVt """ TO STRING 

would be used to move a double quote sign into the variable 
STRING. However# the use of a literal in a MOVE instruction would 
require the use of the forcing character# even in a single 
character move# since the quoted item can be a mutiple character 
quote. For example: 

MOVE TO STRING 

would be used to move a double quote sign into the variable 
SIRING, 1 he RESET r CMUVE, and CMATCH instructions are the only 
exceptions to the forcing character convention within Quoted 
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E*amples: 

RESET STRING TU H # H 
CHOVE "# M TO STRING 
CMATCh M!,H TO STRING 


2.7 A sample program 


• PROGRAM TO DISPLAY A MULTIPLICATION 1 ABLE 


COUNT 1 

FORM 

"0 H 


couivra 

FORM 

M 0 " 


PROD 

FORM 

2 


* 





* HERE IS THE START OF THE EXECUTABLE CODE 


START DISPLAY *ES# "MULT I PL IC AT ION TABLE !%*N 

LOOP MOVE COUNT 1 TO PROD 

MULT COUNT2 BY PROD 

DISPLAY CQUNT1, , ’X%C0UNT2, , ' = %PRGD, H H ,*N 

ADD "l" TO CQUNT2 

GOTO LOOP IF NOT OVER 

ADD "l” TO COUNT 1 

GOTO LOOP IF NOT OVER 

STOP 
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CHAPTER 3. FILE DECLARATION AND DATA DEFINITION 


There are two types of statements in DATABUS 1100 which cause 
space within the user f s data area to be assigned. The first is 
logical file declaration where the space is used to store the DOS 
system information about the file being used and the second is 
data definition where the space is used to keep the variable 
information within the DATABUS 1100 program, 

3,1 File dec 1aration 

Two types of files can be declared in DATABUS 1100, The 
first is a type that will be used for ranoom or physically 
sequential accessing. This type is declared using the FILE 
statement; 

INFILE FILE 

The label INFILL will be useo in all disk I/O statements that are 
to use this particular logical file. This statement causes 1/ 
bytes of data area to be consumed. This area stores the IB bytes 
used in the DOS logical file table, a space compression counter, 
and a flag indicating that this is a physically random or 
sequential access only file. Note that since logical file 
information is stored in the user's data area, the user may have 
any number of logical files active at any one time providing his 
data area can contain all of the necessary declaration 
information. 

The second type of fi1e 1 dec 1aration is used for 
indexed^sequential file accessing. This type is declared using 
the IFILE statement! 

ISArtFILE IFILE 

The label ISAMFILE will be used in all disk I/O statements which 
are to use this particular logical file. This statement causes 26 
bytes of data area to be consumed. This area stores the 
information that a FILE declaration stores plus three three-byte 
pointers for use in the access method* These pointers point to 
the beginning of the last record accessed (for updating 
operations), to the next sequential key (for sequential by key 
accessing), anq to information in the DOS R.l.B, of the index file 
(used in all accessing operations). 
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3,2 Data definition 

There are two types of data used within the OATAHUS 1100 
language# They are numeric strings and character strings# The 
arithmetic operations are performed on numeric strings and string 
operations are performed on character strings# There are also 
operations allowing movement of numeric strings into character 
strings and vice versa# Numeric strings nave the following memory 
t ormat J 


0200 1 2 , 3 0203 


The leading character C0200) is used as an indicator that the 
string is numeric# The trailing character (Q203HETX) is used to 
indicate the location of the end of the string (ETX), Note that 
the format of a numeric string is set at definition time and does 
not change throughout the execution of the program, A numeric 
string can be defined to contain at most 21 characters# 

rthen a move into a number occurs from a string or differently 
formatted number# reformatting will occur to cause the information 
to assume the format of the destination number (decimal point 
position and the number of digits before and after the decimal 
point) with truncation occurring if necessary (rounding occurs if 
truncation is to the right of the decimal point)# 

Character strings have the following memory format; 


9 S THE UUICK BROWN 0203 


The first byte is called the logical length and points to the last 
character currently being used in the string (K in the above 
example). The second byte is called the formpointer and points to 
a character currently being used in the string (Q in the above 
example)# The use of the logical length and formpointer in 
character strings will be explained in more detail in the 
explanations of each character string handling instruction# 
basically# however# these pointers are the mechanism via which the 
programmer deals with individual characters within the string. 
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The term physical length will be used -to mean the number of 
possible aata characters in a string (IS in the above example)* 
The logical and physical lengths of string variables are limited 
to 12/', 


Whenever a data variable is to be used in a program# it must 
be defined at the beginning by using either the FURM# IN1T# or DIM 
instructions. These instructions reserve the memory space 
described above for the data variable whose name is given in the 
label field* Note that all variables must be defined before the 
first executable statement is given in the program and that once 
an executable statement is given# no more variables may be 
defined. Numeric strings are created with the FORM instruction 
while character strings are created with the XNIT or DIM 
inst rue tion. 

3.2.1 Numeric string variables 

Numeric variables are defined in one of two ways with the 
HjRM instruction as shown in the following illustration: 

EMRATE FORM a.2 

XAMT FORM ” 302,40” 

In this example# tMRATt has been defined as a string of 
decimal digits which can cover the range from 9999,99 to *999,99, 
The FORM instruction illustrated reserves spaces in memory for a 
number with four places to the left of a decimal point and two 
places to the right of a decimal point ana initializes the value 
to zero, when the number is negative# one of the places to the 
left of the decimal point is used by the minus sign, XAMT# in the 
example# is defined with tour places to the left of the decimal 
point and three to the right but with an initial decimal value of 
382,400, The physical length of a numeric variable is limited to 
21 characters (decimal point and sign included). 

3.2.2 Character string variables 

Character strings are defined with either a DIM or In IT 
instruction, DIM reserves a space in memory for the given number 
of characters but sets the logical length and formpointer to zero 
and initializes all the characters to spaces. For example: 

STKInd DIM 2b 

A character string can also be defined with some initial value by 
using the INI! instruction. For example; 


CHAP 1 tR 3. FILL DF.CL ARA] li,N AnD DATA UtFlNlTIOD 
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TITLE INJT "PAYROLL PROGRAM" 

initializes the string TITLE to the characters shown and gives it 
a logical length of 15, The formpointer is set to one, Mote that 
in the case of strings# the actual amount of memory space reserved 
ts three bytes greater than the number specified in the DIM or 
quoted in the IN1T instruction (TITLE occupies 16 bytes in memory# 
15 of which hold characters). 

Octal control characters (GUO to 037) may be included when 
initializing a string. The control character is separated by 
commas# without quotes# and is preceded by a zero, Tor example# 

TITLE INIT "PAYROLL PROGRAM",015#"TEST 1" 

would initialize a string with a logical and physical length of Z\ 
characters. The octal control character# 015# would appear after 
the M in PROGRAM and before the first T in TEST1, It is the 
responsibility of the programmer to remember that some of these 
characters (000# 003# Oil# and 015) are used for control purposes 
in disk files. More importantly# these characters are used as 
control characters in DISPLAY and KEYlN statements# and improper 
use of these characters in such statements can result in invalid 
program execution, 

5,«?,3 Common data areas 

Since DATABUS 1100 has the provision to chain programs so 
that one program can cause another to be loaded and run# it is 
desirable to be able to carry common data variables from one 
program to the next. The procedure for doing this is as follows; 

a. Identify those variables to be used in successive 
programs and in each program define them in exactly the 
same order and way# preferably at the beginning of each 
program. The point in this is to cause each common 
variable to occupy the same locations in each program. 
Strange results in program execution usually occur if a 
common variable is misaligned with respect to the 
variable in the previous program, 

b, define the variables in the normal way in the first 
program, Ihen# for all succeeding programs# place an 
asterisk in each TURM# DIM# or INIT statement# as 
illustrated oelow# to prevent those variables from being 
initialized when the program is loaded into memory. 
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Examp]es 


MIKE FORM *4.2 
JuE DIM *20 

BOB I NX T *"THIS ST RING n UNT BE LOADED” 

File declarations may not be made common between programs# The 
reasoning behind this restriction is that mis-alignment in file 
declarations could easily cause catastrophic destruction of the 
file structure under DOS.C. Therefore# whenever a program is 
loaded# all logical files are initialled to being closed and must 
be opened before any file I/O can occur, *Mhen chaining between 
programs# one should always close all files in which new space 
could have been allocated and then re-open the files in the next 
program, 
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DATABUS HOC normally executes statements In a sequential 
fashion. The program control instructions allow this flow to be 
altered depending on the state of the condition flags. There are 
five condition flags in DATABUS 110 Q: OVER/ LtSS# EQUAL # ZERO# and 
EOS, EQUAL and ZERO are two names for the same flag. Only the 
numeric and character string manipulating instructions# the Rfc AD 
instruction# and the READKS instruction alter the states of these 
flags. Reference should be made to the individual instruction 
explanations for the meanings of the flags, 

4,1 GOTO 


The GOTO instruction transfers control to the program 
statement indicated by the label following the instruction: 

GOTO CALC 

causes control to De transferred to the instruction labeled CALC, 

The GOTO instruction may be made conditional by following the 
label by the preposition If- and one of the condition flag names. 
For example; 

GOTO CALC IF OVER 

will transfer control to the instruction labeled CALC if an 
overflow occurred in the last arithmetic operation. Otherwise# 
the instruction following the GOTO is executed. 

The sense of the condition can be reversed by inserting the 
word NOT before the condition flag name as follows; 

GOTO CALC IF NOT OVER 

meaning control is transferred only if the overflow did not occur, 

u, p Branch 


The oRANC h 
specified by an 


instruction transfers control to a statement 
index. For example; 


BRANCH N Of ST ART # CALL# PUli'* T 
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causes control to be transferred to the label in the label list 
pointed to by the index N (i.e, START if N s 1/ CALC if N = 2 # and 
POINT if N s 3) # If N is negative# zero# or larger than the 
number of labels in the list# control continues with the following 
statement* The index is truncated to no decimal places before it 
is used (1,7 = 1), 

The BRANCH instruction statement may be continued to the next 
line by the use of a colon in place of one of the variable 
delimiting commas, Tor examples 

■ ’ BRANCH N OF LOOP# START# READ I# wRITEl! 

WEOF’ 1 # STUP 


-4,3 CALL 

The CALL instruction is very similar to the GOTO instruction 
except that when a RETURN instruction is encountered after a 
transfer# control is restored to the next instruction following 
the CALL instruction, CALL instructions may be nested up to B 
deep. That is# up to eight CALL instructions may be executed 
before a RETURN instruction is executed. Being able to call 
subroutines eliminates the need to repeat frequently used groups 
of statements. Note# however# that in DATABUS 1100 the space 
allowed for a program is very large and that# due to the virtual 
nature of this space# calling a subroutine is considerably more 
time consuming than executing the code in line if a page swap is 
invoked by the subroutine call. Therefore# in many cases it is 
much better to put some code in line instead of making it a 
subroutine# especially if the amount of code is quite small (say# 
less than a dozen lines). This is a trade-off which should be 
considered when one is dealing with code that will be executed 
very often (for instance# code that is executed every time a data 
item is entered), CALL instructions may be made conditional like 
the GOTO instruction. For example! 

CALL FORMAT 

CALL XCOMP IF LESS 


4.4 RETURN 

The RETURN instruction is used to transfer control to the 
location indicated by the top address on the subroutine call 
stack. This instruction has no operand field but may be made 
conditional* For example; 

RETURN 
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RETURN IF ItHO 


4.6 STOP 

The STOP instruction causes the program to terminate and 
return to the MASTER program. This instruction has no operand 
field but may be made conditional, for example; 

STOP 

STOP IF NOT EQUAL 

Execution of the STOP instruction in the MASTER program 
returns control back to QOS.C, 

4.6 CHAIN 

The CHAIN instruction causes the program, whose DUS name 
(with extension D6C) is in the literal or specified string, to be 
loaded and for control to be passed to its first executable 
statement* The characters used for the name start from under the 
formpointer of the specified string variable (or with the first 
quoted character in the case of a literal) and continue until 
either the logical end of the string has been reached or eight 
characters have been obtained, if the end of the string is 
reached before eight characters are obtained, the rest of the 
characters are assumed to be spaces. All DATA8U3 1100 program 
object files are of extension DBC. The character after the 8th in 
the name variable (or the character after the logical length if 
the name is less than 8 characters long) is used as the drive 
number specification for the file. If the characters is not ah 
ASCII 0, 1, P, or 5 or no character physically exists past the 
name, no drive specification is assumed and all drives starting 
with drive zero are searched when looking for the program name in 
the DUS directory (or directories). Otherwise, only the specified 
drive is searched for the name. For example, if in the following 
example N.XTPGM's formpointer was 4 and logical length was 6, the 
CHAIN command would try to load the program named M R0L/DbC" from 
drive 1, 


NX TPGM I NIT "PATROL 1" 

0 

0 

CHAIN NX 1 PGM 


In the following example, however, the Chain command would try to 
loao the program named "PAYRUL1/UdC" off of any irive starting 
from tne zeroth. 
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CHAIN "PAYRUL1" 

To make the CHAIN command try to load the program namea 

"PAYRUL/DOC" from drive oner one would execute the statement; 

CHAIN "PAYROL 1" 

since the 1 would appear after the eighth character In this case, 

4 , / TRAP 

TRAP Is a unique Instruction because? rather than taking 
action at the time It Is executed? It specifies the location to 
which a transfer of control (via the CALL mechanism) should occur 
If a specified event occurs during later execution. For examples 

TRAP EM3G IF PARITY 

specifies that control should be transferred to EMSG if a parity 
failure is encountered during a READ or WRITE instruction. The 
control transfer is performed in a manner similar to the CALL 
instruction. Therefore? in the above example? if the parity error 
occurred during a disk READ instruction? the effect would be to 
Insert a CALL EMSG instruction between the READ and the 
instruction immediately following it* 

If an event occurs and the trap corresponding to that event 
has not been set? the message; 

* ERROR * LLLLL X * or 

★ ERRUR * LLLLL X * U 

appears on the console display. The first form appears for all 
traps except I/O traps. In the event of an I/O trap? a 
qualification letter Is given where a "0" is shown in the example 
(explained below under the "10" trap). The LLLLL is the current 
value of the program counter and the X is an error letter. In 
most cases? LLLLL points to the instruetion fo11owing the one that 
caused the problem. However? in certain I/O errors? LLLLL will 
point after the list item where the problem occurred. The 
following error letters can appear; 

P - parity failure 

R » record number out of range 

F - record format error 

C - chain failure 
I - 1/0 error 
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8 - illegal operation code 
U - call stack underflow or overflow 
A - interruptions al ready prevented 

dote that the last three items shown above cannot be trapped* The 
d error will only show up if somehow an invalid object file is 
executed or if the system is failing. The U error will happen if 
the programmer forgets to perform a call or in some other fashion 
manages to execute a RETURN instruction without a corresponding 
CALL having been previously executed? or calls are nested more 
than eight levels deep. The A error will happen if a PI 
instruction is executed while interrupts are currently prevented* 


The events that may be trapped are shown below. The 
capitalized name is the one used in the TRAP statement. 


PARITY 


RANGE. 


FORMA 1 


CFAIL 


10 


~ disk CRC error during READ.or disk CRC error 
during write verification (the DOS retries an 
operation up to b times to get a good CRC 
before giving up and causing this event), 

* record number out of range (an access was 
made that was off the physical end of the file? 
a record was read which was never written? or a 
in HIT A B was used on record which was never 

written) 

* data being read into a numeric variable was 
not all digits ana decimal point and minus 
sign? or decimal point in input does not agree 
with the decimal point in FORM? or data from 
disk has a negative multi-punch but no room for 
a minus sign in FORM? or write specified 
multi-punch and the last item of the field is a 
decimal point. The operation stops with the 
item in error and the statement is aborted, 

- the specified program was not in the DOS 
directory or a ROLLOUT was attempted with one 
of the necessary system files missing? or a 
program containing compile-time errors was 
loaded, 

- there is only one trap for all of the 
following conditions. Usually? however? the 
trap is used only for detecting whether a file 
exists or not. It is a good idea keep this 
trap clear whenever it is not being useci 
specifically to detect tne presence of a file 
to prevent confusion if one of the other 
conditions occurs. If the trap is not set then 
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one of the following qualification letters 
indicates tne nature of the I/O problem; 

A - an access sequentially by key was attempted 
before any indexed sequential access was made 
using the logical file. 

b » the READ mechanism ran off the end of a sector 
without encountering a physical end of record 
character (003), 

C - an operation on a closed logical file was 
attempted, 

L) * a WRITE or INSERT indexed sequential operation 
was attempted where the specified Key already 
existed in the index, 

E - an EOF mark without at least four zeroes was 
encountered. 

I • the index file specified in an OPEN statement 
does not exist on the specified drive(s). 

J the index file found by the OPEN statement does 
not reside in the correct physical location on 
the disk (index files may never be moved* they 
must always be re-created)• 

K ** a null key was supplied in an operation where 
the key may not be null, 

M - the data file specified in the OPEN statement 
does not exist on the specified drive(s), 

N m the data file name specified in the OPEN or 
PREPARE statement was null, 

0 • the index file name specified in the OPEN 
statement was null, 

p * t he file specified in the PREPARE statement had 
some type of DOS protection (either write* 
delete* or both), 

f * the tab value in the RtAD or WRITAB statement 
was off the end of the sector, 

U - an EOF mark was encountered while a record was 
being deleted in the indexed sequential file, 
v ■" one of the indexed sequential access overlays 
could not be loaded by the DOS loader, 
w - an index file pointer sector could not be read. 
X - an index file header sector could not be read. 

Y - the K.l.b. of the data file pointed to by the 

inaex file could not be read. (VwXY errors can 
be caused by parity errors* the drive being 
switched off line* or the disk cartridge being 
swapped with another wnile an operation is 
taking place.) 
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Note that the trap locations are cleared whenever a CHAIN occurs 0 
Therefore# each program must initialize all of the traps it wishes 
to use* Also# whenever a certain event is trapped# the trap 
location for that event is cleared# which implies that# if the 
event is to oe trapped again# its location must be reset by the 
trap routine* 

4,6 TRAPCLR 

This instruction will clear the specified trap, for example; 

TRAPCLR PARITY 

will clear the parity trap previously set. 

4,9 ROLLOUT 

The ROLLOUT feature allows the execution of the DATABUS 1100 
system to be temporarily suspended while certain functions are 
performed under DOS * C• Nhen a ROLLOUT occurs# the program 
ROLLOUT/SYS will be run which writes system status and memory in a 
file called RULLFILE/SYS* A beep is sounded at the console to 
alert the operator when a ROLLOUT is initiated. Clicks are 
sounded as RULLF1LE/SYS is created ana another beep occurs when 
the file creation is completed. The DOS is then brought up at the 
console by the loading of SYSTEMG/SYS. The ROLLOUT/SYS program 
then supplies the' characters in the string specified by the 
Uatabus ROLLOUT instruction as if they were keyed in from the 
console (this will usually call the CHAIN program), hen the DOS 
functions are completed# the DOS file DBHACK/CMD may be executed 
to restore the DATABUS 1100 system to its previous status (this is 
usually the last program specified in the CHAIN file), D6BACK/CMD 
clears the screen and then loads the KOLLMLt/SYS object file. 

This returns the DATABUS 1100 programto the point of execution 
when the ROLLOUT occurred. ROLLOUT/SYS is provided with the 
DATABUS 1100 System, 

ROLLOUT is initiated by a DATABUS 1100 program with the 
following instruction# 

ROLLOUT (string variaole) or 

ROLLOUT (string literal) 

The string variable or literal specifies what function is 
initially to be executed under DOS and should oe a command line 
acceptable to the DUS command handle 1 r. The string used is that in 
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the variable from under the formpointer up to before a character 
that has a value less than 040 (octal)# is a vertical bar (0174 
octal)# or has a value of octal 0200 or above. In the normal 
case# this means the string used will be that from under the 
formpointer up through the physical length of the string. If it 
is desired for less than through the physical end of the string to 
be used# one should store a vertical bar in the position after the 
last character to be used in the DUS command line string, A CFAIL 
trap will occur if the string variable is null. For example# the 
string's contents could be 

CHAIN DBCFILE 

when DU3 is brought up by the ROLLOUT# the first thing to occur 
would be a chain to DBCFILE. The commands found in DBCFILE would 
then be executed (see the DOS Program User's Guide for additional 
information concerning the DOS CHAIN command), DBCFILE could 
consist of these commands; 

SUNT AF1LE# BFILt 

SORT CFILE#DFILE 

DBBACh 

By using the CHAIN command# several DOS functions can be performed 
and the system automatically restored with the DBBACK command. If 
DBBACK is not included in the chain file# if the CHAIN aborted for 
some reason# if DOS was booted during the CHAIN# or if the string 
specified in the ROLLOUT consisted of a DOS function other than 
CHAIN# the DATABUS 1100 system will have to be restored by the 
operator keying in DBBACK at the console. 

The ROLLOUT feature is particularly useful when a file needs 
to be sorted with the DOS SORT command or an indexed file needs to 
be re"indexed using the DOS INDEX command* Note that the clock is 
not updated while the DAI ABUS 1100 system is not executing, 

Ihere are a number of precautions which must be observed 
during the use of ROLLOUT, The functions performed while under 
the DOS must not affect any of the operations that were taking 
place under the DATABUS 1100 system. For example# the MASTER 
program must not be changed and files that are open and in use 
must not be modified or deleted. The reason behind this is that 
when the DATABUS 1100 operation is restored# certain items in 
memory reflecting the state of the DUS file structure will also be 
restored. If these items are no longer accurate in their 
reflection due to the fact that the file structure has been 
changed# terrible things can happen to the DATABUS 1100 system. 
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Operations to be watched in particular include the changing of the 
object code of any program that is running# the changing of any 
files that are open# and the re-arrangement of any disks with 
files in use within a multi-drive system* 

<*•10 PI 

This instruction (Prevent Interruptions) enables the 
programmer to prevent his program from being interrupted for up to 
cJG Uataous instruction executions, This instruction has no effect 
upon the foreground one millisecond interrupt which performs the 
printer I/O, 

Normally# background execution can be interrupted through 
execution of the Interrupt procedure at the console. By executing 
the PI instruction# the programmer can postpone this interruption 
for a specified numoer of instructions (up to a maximum of 20), 

The number of instructions specified in the PI instruction is 
always a fixed decimal number (it may not be a numeric variable). 
For example, 

PI a 

REAP F #KEY#PN#OTYONH#LOU 

SUB UTY FROM UTYUImH 

GOTO NUTNUFF IF LfcSS 

UPQATt F;PN,QTYOMl,UJi) 

Interruptions will be prevented from the PI instruction through 
the UPDATE instruction, Note that the number supplied to the PI 
instruction denotes the number of instructions after the PI 
instruction. 

If a KEYIN instruction is executed while interruptions are 
prevented# the effect of the PI instruction is canceled. If a PI 
instruction is executed while interruptions are currently 
prevented# execution of the program is aborted with an error 
message. This prevents a program from being able to prevent 
interruptions for more than 20 instruction executions, 

Note that when devising systems with complex data file 
structures it is necessary to protect the file structuring against 
irreparable destruction by untimely interruption, Ihe PI 
instruction can be used to prevent the operator from causing such 
a disturbance. However# it should not be used as a panacea for 
the interruption problem since interruptions can still be caused 
by power failures or the system operator restarting the processor. 
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The PI can be very useful in preventing the operator from causing 
a situation which could require extensive recovery effort but the 
precautions which allow recovery in the event of an interruption 
at any point in the program must still be built in to allow 
recovery in the other le3S likely but still possible interruption 
cases. 

Although when operating under uATAbUS 1100# there is only one 
user program executing at a time# and no consideration need be 
given to another user updating a file as it is being processed# 
the PI instruction provides the ability to lock out alternate 
accesses# providing for future upgrades to multi-user DATASHANE 
systems, 

4,11 T ABPAGE 

This instruction forces sections of the program into certain 
pages of object code. Execution speed can be enhanced in this way 
because of the way the virtual storage mechanism for the object 
code works, I he instruction consists only of the verb TAtJPAGE and 
has no operands (a label may be placed on a TABPAGE instruction 
line# however). Execution of the TABPAGE instruction causes 
control to be transferred to the first byte of the next page. 

Note that liberally scattering TAbPAGE instructions 
throughout a user program will in general not result in an 
increase in execution speed. Instead# the usual effect is to 
increase the rate of thrashing of the program, TABPAGE should 
only be used to force tight loops to reside entirely within one or 
two pages. 
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Each string instruction? except LOAD and STORE? requires 
either one or two Character string variable names following the 
instruction, (Note that the MOVE instruction is capable of moving 
strings .to numbers? numbers to strings? and numbers to numbers? as 
well as moving strings to strings. See the following section and 
Section 6.S for the entire description of the MOVE instruction. 
Also note that APPEND can move numbers into strings as well as 
strings into strings,) in the following sections? the first 
variable will be referred to as the source string and the second 
variable will be referred to as the destination string. In some 
cases? the source may be a literal, when' it is? the formpointer 
always points to the first physical character in the string and 
the logical length always points to the last physical character in 
the string, 

‘5,1 MOVE 

MOVE transfers the contents of the source string into the 
destination string. Transfer from the source string starts with 
the character under the formpointer ana continues through the 
logical length of the source string, Transfer into the 
destination string starts at the first physical character and when 
transfer is complete? the formpointer is set to one and the 
logical length points to the last character moved. The EPS flag 
is set if the ETX in the destination string would have been 
overstored and transfer stops with the character that would have 
overstored the ETX* If the source string is null? the length and 
form pointer of the dest1nation string are set to zero? and the 
EOS condition is NOT set. 

The MOVE instruction can also move character strings to 
numeric strings and vice versa, (The movement of numeric strings 
to numeric strings is covered in section 6.b,) A character string 
will be moved to a numeric string only if the character string 
from the formpointer through the logical length is of valid 
numeric format (only digits? spaces? a leading minus sign? and one 
decimal point allowed). Otherwise? the numeric string is not 
changed. Note that only the part of the character string starting 
with the formpointer is considered in the validity chec* and 
transferred if the string is of valid numeric format• The number 
in the character string will be reformatted to conform to the 
format of the numeric string. Hounding occurs if the number in 
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the character string is too large to fit into the format of the 
numeric string (see Section 6 tor rounding rules followed). The 
TYPfc instruction is available to allow checking the character 
string for valid numeric format before using the MUVE instruction, 

when a numeric string is moved to a character string* all 
characters of the numeric item (unless the ETX in the destination 
string would be overstored) are transferred starting with the 
physically first character in the destination string, when the 
operation is completed* the logical length is set to point to the 
last character transferred. The EOS condition is left true if the 
ETX of the destination string would have been overstored. In this 
case* transfer stops with the character before the one that would 
have overstored the E'TX and the logical length is left pointing to 
the physical end of the string (which contains the last character 
transferred). 

In the following examples* the logical length* formpointer* 
and content of each variable is shown before the statement is 
executed* the statement is shown ana the contents of the variable 
that is changed by the execution of that statement is shown. The 
* denotes a space in the contents of a variable. 


VAR 

LL 

FP 

Cont en t s 


STRING1 

A 

a 

ABCDXLM 

ETX 

STRING*? 

6 

3 

DUGCAT 

ETX 

MOvt 

STR1NG1 TO STRING*? 

STRING*? 

3 

1 

bCOCAT 

ETX 

STRING*? 

6 

3 

DUGCAT 

ETX 


MUVE "HELLO" TO STKING2 
STRING*? S 1 MEL LOT t T X 


W 
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STRJNG1 

9 3 

AB100,$27 

E IX 

NUMBER 

0200 

*39.00 

ETX 

MOVE 

STRING 1 TO NUMBER 


NUMBER 

0200 

100.33 

ETX 

NUMBER 

0200 

100.33 

ETX 

STRING1 

9 3 

AB100.327 

ETX 

MOVE 

NUMBER 

10 STRING1 


STRING1 

6 1 

100,33327 

ETX 


Note that in the statement; 

him “ABC” TU NUMBER 

the compiler wiH give an E error flag since it knows that this 
cannot be a valid operation (the move will not occur because the 
literal is not of valid numeric format). In the statement: 

MOVE "2.3 H TO STRING! 

the compiler will generate a string to string move rather than a 
numeric to string move. 

5.a APPEND 

APPEND appends the source string or number to the destination 
string. A numeric item is treated exactly as if it were a string 
with a formpointer pointing to the first physical character and a 
logical length pointing to the last physical character in the 
number. The characters appended are those from under the 
formpointer through under the logical length pointer of the source 
string* The characters are appended to the destination string 
starting after the formpointed character in the destination 
string. fhe source string pointers remain unchanged# out the 
destination string pointers both point to the last character 
transferred. The EUS condition will be set if the? new string will 
not fit physically into the destination string# hut all characters 
that will fit will be transferred. 
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The following example shows two strings before the operation# 
the operation# and the result In the second string after the 
ope rat 1 on; 

STRING1 6 6 JOHN*DGE tTX 

STRINGS U U MARVJONES***. ETX 

APPEND STR1NG1 IU SIRING2 
STRING*? 14 14 MAH Y * J ONES * DOE *. ETX 


The following example shows a destination string before the 
operation# an operation appending a literal to the destination 
string# and the destination string after the operation: 


STRING*? 9 8 MAR Y * JUNE S*''*** ***“ * * * ETX 

APPEND %XX f YY." TO STRING*? 

STRINGS lb lb MARY-JUN,XX,YY.. tTX 


The following example shows the use of APPEND to move a 
numeric item into a string item: 


NUMBER 

0200 

100*35 

ETX 

STRING 

9 a 

ArtCDEFGHl 

ETX 


APPEND NUMBER TO STRING 


STRING 8 8 AdlOO.331 ETX 

b •5 MATCH 

MATCH compares two character strings starting at the 
formpointer of each and stopping when the end of either operand's 
string is reached. If either formoointer is zero before the 
operation, the MATCH operation will result in only clearing the 
LESS and EUUAL flags ano setting the EOS flag. Otherwise# the 
’’length" of each string is calculated to be LENGTH-EORMPOINTER+t 
and the LESS flag is set if the destination string length is less 
than tnat of the source string. The two strings are tnon compared 
on a character"*for-character oasis for the number of characters 
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equal to the lesser of the two lengths. If all the characters 
match# the fcQUAL flag is set* Otherwise# the LESS flag's meaning 
is changed to indicate whether the ASCII value of the destination 
character is less than the ASCII value of the source character 
(LESS flag set) or vice versa (LESS flag reset) for the first pair 
of characters that do not match* Some examples and their results 
f o 1 1 Ow 5 


SOURCE 

DESTINATION 

RESULT 


ABCDE 

ABCD 

equal, less 


ABC 

l 

NOT EQUAL# 

NOT 

III 

AAA 

NOT EQUAL# 

LESS 

ABC 

ABC 

EQUAL# NO I 

LESS 

ABCD 

ABCDE 

EQUAL# NOT 

LESS 


Examples: 


MATCH A TU ti 
MATCH STR!# STR£ 

5.4 CMOVE 

CMOVE moves a character from the source operand to under the 
formpointer in the destination string. The character from the 
source operand may be a quoted alphanumeric (note that the forcing 
character rule does not apply here)# the character from under the 
formpointer of a string variable# or an octal control character 
(000 to 037), If either operand has a formpointer of zero# an EDS 
condition and no transfer occurs* Specifically# a variable 
declared with DIM instead of I NIT has an initial value of NULL # 

Examples: 

CMOVE XDATA TU Y0A1A 
CMOVE M A H TO CAT 
CMOVE X # Y 
CMOVE 015# Y 

5.5 CMATCH 


CMA 1 Cm compares two characters# one taken from each of the 
source and destination operands. The characters may be quoted 
alphanumeric (note that the forcing character rule does not apply 
here)# from under the formpointer of a string variable# or octal 
control characters (000 to 05/), An EOS condition occurs if 
either formpointer is zero# and no other conditions are set. 
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Otherwise# the EQUAL and LESS conditions are set appropriate 1y, 
The LESS condition is set if the destination string character is 
less than the source string character. 


Examp 1es; 



cmatch 

XDAfA TO YDATA 

CMATCH 

M A H # 

DUG 

CMATCH 

CAT 

TU "B" 

CMATCH 

01S# 

DUG 

B.6 BUMP 




BUMP increments or decrements the formpointer of the first 
operand if the result will he within the string (between 1 and the 
logical length). If no parameter is supplied# BUMP increments the 
formpointer by one. However# a positive or negative literal value 
may be supplied to cause the formpointer to be moved in either 
direction by any amount. Note that a numeric variable is not a 
valid arguement to BUMP, although such a statement will not be 
flagged by the compiler. This i9 because the compiler treats any 
text appearing after a valid arguement as comments# providing it 
is not recognisable as another arguement. The EOS flag will be 
set and no change in the formpointer occurs if it would be less 
than one or greater than the logical length after the movement had 
occurred. 

Examp 1es j 

BUMP CAT 
BUMP CAT BV 2 
BUMP CAT #-1 

B,7 RESET 

RESET changes the value of the formpointer of the source 
string to the value indicated by the second operand. If no second 
operand is given# the formpointer will be reset to one. The 
second operand may be a quoted character# in which case the ASCII 
value minus 31 (space gives one# I two# M three# etc) will be used 
for the value of the formpointer of the source string. The second 
operand may also be a character string# in which case the ASCII 
value minus 31 of the character under the formpointer of that 
string will be used for the value of the formpointer of the source 
string. The secono operand may also be a numeric string# in which 
case tne value of the number will be used for the formpointer of 
the source string. 
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The use of a string variable as the second operand in a RESET 
instruction nay not be obvious at first. One application could be 
in aoing code conversions where each character in the string to be 
converted is used as a formpointer value in a code conversion 
string from which is pickea to corresponding converted character 
to be used as the character in the converted string. Another use 
is in the coding of item positions within a string into a single 
character. For example* in a file one might want to place an item 
in a variable location within the record. The first character of 
the record could be a character which corresponds to the column 
position within the record of the start of the item, line could 
read the first character of the record into a one character string 
variable and then the rest of the record into a large string 
variable. The large string variable could then have its 
formpointer reset to the position indicated by the first character 
in the record and the item could then be moved to another variable 
with the MOVE instruction, 

RESET also has the capability of extending the logical length 
of tht* first operand. If the formpointer value specified is past 
the logical length of the first operand* the logical length will 
be extended until it will accommodate the formpointer value, if 
this would cause the logical length to be past the physical end of 
the string* the logical length and formpointer will both be left 
pointing to the last physical character in the string. This 
feature is useful in extracting and inserting information within a 
large string. The EOS condition will be set if a change in the 
logical length of the first operand occurs. 

Examples: 

RESET XDA7A TO b 
RESET Y 

RESET / TO NUMBER 
RESET l TU STRING 

Note that the RESET instruction is very useful in code 
conversions and hashing of character string values as well as 
large string manipulation. 
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ENOSET causes the operand's formpointer to point wnerc its 
logical length points. 

Example: 
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ENDSET PNAHE 


5.9 LtNStT 

LENSET causes the operand's logical length to point where Its 
formpointer points, 

Example: 

LtNSET UNAME 

5.10 CLEAN 

CLEAN causes the operand's logical length and formpolnter to 
be zero. None of the data characters are changed, 

Example; 


CLEAN NBUFF 


5.11 EXTEND 

EXTEND Increments the formpolnter# stores a space In the 
position under the new formpointer# and sets the logical length to 
point where the new formpointer point9 If the new logical length 
would not point to the ETX at the end of the character string, 
Otherwise# the EOS flag Is set and no other action is taken, 

Example! 


EXTEND BUFF 

5,12 LOAD 

LOAD performs a MOVE from the character string pointed to by 
the index numeric variable# given as the second operand# to the 
first character string specified* Ihe instruction has no effect 
if the index is negative# zero# or greater than the number of 
items in the list. Note that the index is truncated to no decimal 
places before it is used (e,g* 1*/ s 1)* 

Example: 


LOAD AVAN FNUM n UF NAMfc# TITLE# MED I NO 
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5.13 store 


SlURt performs a MOVE from the first character string 
specified to a character string in a list specified by an'index 
numeric variable given as the second operand. The instruction has 
no e ec i the index is negative, zero, or greater than the 
number of items in the list. Both LOAD and STORE can be used with 
numeric arguements, see the section under "Aritnmetic Uperations." 

-Mote that the maex is truncated to no decimal places before it is 
used (e. g, 1./ s 1) # 


Examples: 

STORE V INTO MUM OF IItN,ENTRV,ALI m 
STORE "XX" INTO NuM Oh A1,A2,A5 

The LOAD and STORE instructions may be continued to the next 
line by the use of a colon; 

Examples* 

LOAD SYMBOL FROM N OF VAN#CONS 1,DEC• 

COUNT,FLAG,LIST 

STORE NAME INTO NUM OF A , hi, C , 0 , E , F , G : 

H,I,U,K,L,M 

5.14 CLOCK 

CLOCK enables the programmer to access the DATAbUS 1100 
clock. This interrupt is accurate to approximat ely 0.005 percent 
or our seconds per day. There are three variables that the CLOCK 

!r?u rUC l!? n CaP access * These are given the names TIME, DAY, and 
rtAK. All are character strings with T1 ME being in the format; 


12:34:56 


and ranging from 00:00:00 to 23:59:b9, 


DAY being in the format* 


123 


and ranging from 001 to Sob (except to 3bo on leap years), and 
YbAh being in the format; 

12 
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and ranging from 00 to 99, being the last two digits of the year, 
Note that when the TIME goes from 2i;59;59 to 00:00:00, the day is 
incremented, The new day value is not checked to'* be a valid 
Julian date, however, implying that the system must be manually 
reset at midnight at the end of the year. The CLOCK instruction 
performs a character string to character string move with the 
special variable in the source and the character string to receive 
the information in the destination operand specification, Note 
that the user's program may have variables called TIME# DAY, and 
YEAN, 

Tor examp 1e• 

CLOCK TIME TO TIME 

CLOCK DAY TO DAY 

CLUCK YEAH TO YEAH 

would move the information in the system variables into user 
defined variables cal 1ed TIME, DAY, and YtAH also. 

Note that the clock value is not allowed to be updated by the 
foreground interrupt during the actual transfer of characters from 
the system data into the user's data item, however, an interrupt 
could occur between the time one clock item was moved and the 
next# thereby necessitating a precaution if both the time and the 
day figure are obtained. For example, if the time was 25:59:59 
and the TIME was moved into a variable and then the foreground 
interrupted and caused the clock to be incremented to the next 
second, the TIME would then read 00:00:00 and the DAY would have 
been incremented. If the DAY figure were then obtained, it would 
be wrong. Therefore, when obtaining both the TIME and DAY, one 
must first get the DAY, then get the TIME, and then go back and 
make sure the DAY had not changed. For example: 

CLUCK DAY TO DAY 

CLOCK TIME TO TIME 

CLOCK DAY TO DAY2 

COMPARE DAY 10 QAY2 

GOTO TI MEOK IF EQUAL 

CLOCK DAY TO DAY 

TIMEOK 
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TYPE sets the EQUAL condition if the string contained from 
the formpointer through the logical length of the specified string 
variable is of valid numeric format (only leading minus? one 
decimal point? and digits or leading spaces). Mote specifically 
that a field that is all spaces? only a decimal point: or MULL is 
not a valid numeric field. 

5,1 o SEARCH 

SEARCH compares one string of characters (a key) to a series 
of contiguous variables (a list) and returns the positional number 
(the index) of the matching item. The search starts at the 
formpointer of the key variable and the formpointer of first list 
variable. Each compare through the list stoos when the Key length 
is exhausted (the items do not have to be of equal length). If 
the key matches the item?even though the item is longer? a match 
will occur. If the list item is shorter than the key? no match 
occurs. The instruction must include a numeric variable 
containing the number of items in the list. The key will be 
compared to each item in the list until the list length is 
exhausted or a match occurs. 

If a match is found? the number of the matching variable 
(that is? its position in the list) is stored in the numeric 
variable specified as the index ana the EQUAL flay is set. 

If no match is found? the index variable is set to zero and 
the OVER flag is set. 

For ex amp 1e: 

SEARCH KEY IN LIST TU LISTEN WITH INDEX 
SEARCH ACTNO UN VALIDACT TU TEN USING CLASSnD 

The key and list may be of either numeric or string type. 
However Doth the key and list items must be of the same type as it 
is not possible for a match to occur when one item is a string 
variable? and the other is a numeric item. Regardless of the 
type? only compare without alignment is preformed. The list 
arguement is the name of an item in the user's data area? and 
defines the beginning of the search operation. As the search 
progresses? one data item after another is compared against the 
key variable (using criteria similar? but not identical to ’^ATCH) 
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until the specified number of items have been compared# or a match 
has been found. It is the user's responsibility to limit the 
search operation to a valid number of items, ]f the number of 
items specified in the search exceeds the number of items in the 
user's data area# the search continues blindly until the count is 
exhausted, 

S,l/ Kfi.Pt-ACt 

The REPLACE (or REP) instruction allows any ASCII character 
in a string variable to be replaced by any other ASCII character. 
The first variable in the instruction contains one or more pairs 
of two characters# each pair consisting of the character to be 
replaced and the replacing character. The second variable is the 
string to oe modified • 

ABtfAK UNIT "PORS" 

REPLACE ABVAR IN SVAR 
REP "AB" IN SVAR 

In the latter example string SVAR will have any M A W character 
replaced by a "B" character. 
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CH APT EH 6. ARITHMETIC INSTRUCT IONS 


All of the arithmetic instructions have certain 
characteristics in common, Except for LOAD and STORE# each 
arithmetic instruction.is always followed by two numeric string 
variable names. The contents of the first variable is never 
modified and# except in the COMPARE instruction# the contents of 
the second variable is always the result of the operation. For 
example# in; 

ADD XAMT TO YAMT 

the content of XAMT is not changed# but YAM I contains the sum of 
XAMT and Y-AMT after the instruction is executed. 

hoi lowing each arithmetic instruction# the condition flags 
UvtRi LESS# and ZERO tor EQUAL) are set to indicate the results of 
the operation, OVER indicates that the result of an operation is 
too large to fit in the space allocated for the variable (a result 
is still given with truncation at the left and rounding at the 
right# however). LESS or ZERO (EQUAL) indicates respectively that 
the content of the second variable is negative or zero following 
the execution of the instruction (or would nave been in the case 
of COMPARE), 

Whenever overflow occurs# the higher valued digits that do 
not fit the variable are lost. For example# if a variable is 
defineds 

NBR42 FORM 2.2 

and a result of 4234.67 is generated for that variable# QBR42 will 
contain only 34,67. 

whenever an operation produces lower order digits that will 


not fit 

in the destination variable# 

tne result 

is rounded. 

R o u n d i n g 

on five is the 

nex t 

greater 

variable. 

A variable with 

the FORM 

$.1 would contain: 





41>,2 

for 

46,215 




612,5 

for 

612.463 




3,7 

for 

3 , bob 




3,9 

for 

3,650 




632.0 

for 

4 6 32 
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with the OVER condition occurring for only the last result* 

Note that if an OVER occurs during an ADD, SUB, or COMPARE of 
two strings of different physical lengths, the result and the LESS 
condition flag may not be correct* 

6.1 ADD 

ADD causes the content of variable one to be added to the 
content of variable two! 

Examplesi 

ADD X TO Y 
ADD DOG,CAT 
ADD "l", LEN 

6 .a SUB or SUBTRACT 

The SUB instruction (the compiler will also accept a mnemonic 
of SUBTRACT) causes the content of variable one to be subtracted 
from the content of variable two* 

Examp 1es! 

SUB RX350 FROM TOTAL 
SUB H 32,S H FROM RATE 
SUBTRACT If TOTAL 

6.3 MULT or MULTIPLY 

The MULT instruction (the compiler will also accept a 
mnemonic of MULTIPLY) causes the content of variable two to be 
multiplied by the content of variable one. The restrictions 
mentioned in the introduction about the length of multiplication 
operands are that the sum of the number of characters in the two 
operands must be less than 3<f. 

Examples! 

MULT B BY A 

MULT h ,O0S” BY 10TAL 

MULTIPLY u ,L 
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6.4 DIV or DIVIDE 

The DIV instruction (the compiler will also accept a mnemonic 
of DIVIDE) causes the content of of the second variable to be 
divided bv the content of the first variable. The restriction 
upon division operands is that the number of characters in the 
dividend plus the number of characters in tne divisor plus two 
times the number of characters after the decimal point in the 
divisor must be less than 32, Division by zero results in the 
OVER condition being set and the destination variable not being 
changed. 


If the quotient cannot be represented fully in the 
destination variable format* the quotient will be rounded to the 
number of places in the destination variable if the divisor has at 
leastone digit place after the decimal point. If there are no 
digit places after the decimal point in the divisor* the quotient 
will be truncated (rounded down) to the number of places in the 
destination variable. 

Examp less 

DIV SF ACT INTO XRSLT 
DIV "3,0" I MTU QUANTIFY 
DIVIDE. X 3 * HOURS 

b •b MOVE 

MOVE causes the content of variaole one to replace the 
content of variable two, 

t x amp less 

MOVE FIRST 1U SECOND 
MOVE "0" TO COUNTER 
MOVE A ,b 

o.b Compare 

COMPARE does not change the content o+ either variable but 
sets tne condition flags exactly as if a SUb instruction has 
occurred. 

E. x amp 1es: 
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COMP A HE X K R -1 10 YFRM 
COMPARE "1Q0" TO LINENH 
COMPARE TIMhl#TlME2 


6,7 LOAD 

The LOAD instruction selects the numeric string variable out 
of a list based on a numeric inaex variable. It then performs a 
MOVE operation from the contents of the selected variable into the 
first operand. If the index is truncated to no decimal places 
before it is usdd Ce.g. 0,1=0). 

Example; 

LOAD CAT FROM N OF CA 1#MUL T* SPACE 


6,8 STORE 

The STORE instruction selects a numeric string variable from 
a list based on the value of a numeric index variable. It then 
performs a MOVE operation form the contents of the first operand 
into the selected variable. If the index is negative# zero# or 
greater than the number of items in the list# the instruction has 
no effect. Note that the index is truncated to no decimal places 
before it is used (e.g, 0,1=0), 

Example; 


STORE X INTO NUM UF VAL#$U6#TUT 

The LOAD and STORE instruction statements may be continued to 
the next line by the use of a colon, 

Examples? 

LABEL LOAD NUMBER FROM N OF N1#N£#N3#N4#N5; 

N 6 # N / # N 8 # N R 

ENTRY STORE "2,3" INTO X OF N1#N2#N3 
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6.9 CHfcCK11 


The CHECK11 (or CK11) instruction performs a check digit 
calculation (modulo 11) on two string variables* Both string 
variables must consist of digits only. The first variable is the 
base number and the check digit to be validated: 

112 5 4 17! 

I BASE 1 — CHECK DIGIT 

The second variable is the weighting factor: 

,15 4 3 2 1 

Note that the weighting factor ana the base portion of tne number 
are of the same length. The weighting factor is assumed to Have 
the length of the base, if it is shorter# an EU5 condition is set 
and the instruction is not completed. If the weighting factor is 
longer# only the first (n) digits are used# where Cn) is the 
length of the base. 

The ca1cu1 ation is performed starting at the form pointer of 
each variable using the length - 1 of the first variable, when 
the check digit value has been computed# it is compared to the 
last digit of the base. If they match# the EQUAL flag is set# if 
the resultant check digit does not match# the OVER flag is set and 
the EQUAL flag is cleared. 

For ex amp 1e: 

CHECK XX BA5ECK BY ”765432/ M 
CK11 NNiBR BY WEIGHT 

The algorithm used to generate the modulo 11 check digit value is: 

1) Each digit in the base is multiplier? by the cor respond i ng 
digit in the weighting factor. 

2) The individual products are added. 

5 ) Tne sum of the p r o d u c t s is divided by eleven. 

The remainder of the division is subtracted f r o ^ eleven 
giving tne check digit. 
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S) A check digit with a value of 10 cannot be used and causes 
the UVfcK flag to be set, 

6.10 CHECK 10 

The CHECK10 (or CK10) conforms to the same restrictions and 
is performed in the same manner as the CHtCKll instruction with 
the exception of the algorithm used to compute the check digit, 

tor example?! 

CHECK 1 0 AC1 *M□ dY "21212" 

CK10 A BY b 

The algorithm for modulo 10 check digit computation is; 

1) Each digit in the base number is multiplied by the 
corresponding digit in the weighting factor, 

2) The individual digits in these products are added, 

3) The sum of the digits is divided by 10, 

4) The remainder of the division is subtracted from 10 with the 
result being the check digit. 
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chapter 7* input/output instructions 


The DATABUS 1100 statements that move data between the 
program variables and the terminal# printer# or disk# allow a list 
of variables to follow the operation mnemonic* This list may be 
continued on more than one line with the use of a colon* 

The I/O list may contain some special control information 
besides the names of the variables to be dealt with* It may also 
include octal control characters (000 through 037)* Care must be 
taken in tne use of these special control characters as their use 
can cause gnpredictable results if the 1/0 device (such as the 
Servo Printer) does not have provision for them. DATABUS 1100 has 
no formatting information in its input and output operations other 
than the list controls and that implied by tne format of the 
variables, Tne number of characters transferred is equal to the 
number of characters physically allocated for the string (except 
in some special cases) allowing the programmer to set up his 
formatting by the way he dimensions his data variables, 

7,1 KEY IN 

KEY IN causes data to be entered into either character or 
numeric strings from the keyboard, A single KtYIN instruction can 
contain many variable names and list control items, when 
characters are being accepted from the keyboard# the flashing 
cursor is on* At all other times the cursor is oft, 

Niven a numeric variable is encountered in a KEYIN' statement# 
only an item of a format acceptable to t^e variable (not too many 
digits to the left or right of the decimal point and no more than 
one sign or decimal point) is accepted. If a character is struck 
that is not acceptable to the format of the numeric variable# the 
character is ignored and a beep is returned to the console. Note 
that if fewer than the allowable number of digits to the left or 
right of the decimal point are entered# the number entered will be 
reformatted to match the format of the variable being entered, 

^hen the E(m! ER key is struck, the next item in the instruction 
list is processed, 

uhen a character string variable is encountered# the system 
accepts any set of ASCII characters up to the limit of the 
physical length of the string. The f ormpoint er of the string 
variable is set to one ana characters a restored consecutively 
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startinq, at the physical beginning of the string, when the ENTER 
key is struck, the logical length is set to the last character 
entered and the next item in the keyin list is processed. If the 
ENTER key is struck without any other characters having been 
entered (a null strinq is entered), both the logical length and 
form pointer of the string are set to zero. The program can check 
for a variable with a null entry by checking for an EOS condition 
after doing,a CRATCH instruction on the variable in question. 
During a KLYIN# any unrecognizab1e characters (not in the printing 
ASCII set) sent in from the console will be ignored and a beep 
returned, 

/•lffl Displaying with KLYIN 

Other than variable names# the KEYIN instruction may contain 
quoted items# list controls# and octal control characters (000 to 
057), Quoted items are simply displayed as they are shown in the 
statement, 

/,1,2 List Cont rols 

The list controls begin with an asterisk and allow such 
functions as cursor positioning and screen erasure. The *P<n>i<m> 
controT positions the cursor to horizontal position <n> and 
vertical position <m>, Note that these numbers may be literals or 
numeric variables and both positions must always be given in a *P 
command. The horizontal position i9 restricted by the interpreter 
to be from l to 80 and the vertical position is restricted to be 
from 1 to 12, Numbers outside this range have the effective value 
of 80 horizontal and 12 vertical. 

The *ES control positions the cursor to 1:1 and erases the 
entire screen, the *EE control erases the screen from the current 
cursor position, the *£l control erases the rest of the line from 
the current cursor position, the *C control causes the cursor to 
be set to the beginning of the current line, the *L control causes 
the cursor to be set to the following line in the current 
horizontal position, the *N control causes the cursor to be set to 
the first column of the next line, ana the * R control causes the 
screen to roll up, 

Normally, the cursor is positioned to the start of the next 
line at the termination of a KLYIN statement* However, placement 
of a semicolon after the last item in the list will cause this 
positioning to be suppressed, allowing the line to be continued 
with the next Kb Y lN or DISPLAY statement, Tms feature is also 
true of the PRINT command. 
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E xamp 1 e 


KfcYIN *£S#”NAME; H , NAME # *P $5 ! 1 # " ACM NR: "S 
AC T NR r" ADDRESS: M #ST HI tf#*P10:i: 
city#*px:4, m ZIP; %ZIP? 

KEY!N "ABC”#0P1,NVAR 


/•1 * 5 KEY IN Continuous 

A mode called keyin continuous is available (turned on with 
list control and turned off with list control *- or the end of 
the statement) which causes the system to react as if an ENTER key 
had Deen struck when the operator enters the last character that 
will fit into a variable* This mode allows the system to react in 
much the same way as a keypunch machine with a control card, 

7.1,4 BACKSPACE and CANCEL 

vNhile keying a given variable* the operator can stride the 
BACKSPACE key and cause the last character entered to be deleted, 
Ihe operator may also strike the CANCEL key and cause all of the 
characters entered for that variable to be deleted, 

A circular input buffer allows the operator to send 
characters from the keyboard before they are requested by the 
system. Note that there is no feedback at this level as the 
characters are fed back only as they are taken from the buffer. 
This buffer allows the operator to continuously enter data without 
being affected by minor delays in the response of the system, 

7*1,5 Operator Interrupt Procedure 

A special case of KtYlN is the interrupt procedure* entered 
oy keying CANCEL with both the KEYBOARD and DISPLAY keys depressed 
on the system console. Normally* when the cursor is not flashing* 
all characters will be ignored (not accepted from the circular 
input buffer) until input is requested, Ihe exception* however# 
is tne interrupt character# which may be keyed at any time (it 
will be postponed if a PI instruction is in effect) and will 
result in an immediate CHAIN to the PASTER program. Thus* the 
currently executing program will stop# the printer# if being used* 
will be aborted# and the FASTER program will begin execution. 
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7•1*6 New L i ne 


Another special case of KEYIn is the NEft LINE character# 
which is the DEL or underline character on the system console* If 
this key is struck during a KEYIN statement# the current variable 
is terminated as if the ENTER key were struck and all subsequent 
variables in the statement will oe set to zero or their 
formpointers and logical lengths set to zero depending on whether 
they are numeric or string variables* Control will fall through 
to the next DATABUS 1100 statement* 

7*1*7 KtYlN Timdout and Pause 

The list control# *T# may be included in the KEYIN statement 
causing a time out if more than two seconds elapse between the 
entry of two characters. The time out has the same results as if 
the NE N LINE key had been struck. 

The list control# *1*# may be included in the KEYIN statement 
causing a one second pause at that point in the list sequence. 

This control is especially useful in programs which wish to simply 
pause for a number of seconds. Any number of seconds of pause may 
be achieved by putting in the required number of controls in 
the list. 

7,1,8 Echo Control 

The list controls *EQFF and *E0N may be included in the KEYIN 
statement causing the echo of entered characters to be inhibited 
or enabled respectively, When echo is inhibited# the KEYIN 
statement causes only tne characters specifically mentioned in the 
list to be displayed on the console. Therefore# the statements 

KEYIN *£0Ff ; # 1NLI jE# 

would allow the variable INLINE to be entered from the keyboard 
with absolutely no characters being displayed at the console. 

Since the cursor display at the console will not be enabled# there 
will oe no indication in this case that input is oeing requested, 
Ihis feature could be used where passwords are to be entered and 
it is desired to suppress their disp1 ay, In this case# the 
statement* 

KEYIN *EUFf* # *P1:1Q#"ENTER PASSWORDS 
022#PASSn.l*RD#0?4 
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could be used, Note that even though echo is inhibited? the 
cursor positioning and literal characters are still displayed on 
the console since they are specifically mentioned, Notice also 
that the carriage return and line feed will be sent at the end of 
the statement since a semi-colon is not supplied. The 
character is a cursor on ana the 0P4 is a cursor off for the 
system console. The cursor controls must be specifically 
mentioned since the echo inhibit prevents them from being sent 
automatically* The echo is always enabled at the conclusion of 
the KtYIN statement. Therefore? one must always inhibit .the echo 
at the start of each statement in which no echo is desired, 

/•1 •9 KEY IN Format Controls 

Numeric and String variables in the KtYIN may be preceded by 
a format control function which can change the justification 
and/or fill control normally performed during KtYIN, 

The special KtYIN controls apply only to the variable 
following in the KEY1N statement, 

the *Jl control }eft-justifies numeric input ana zero-fills at 
right if there is no decimal point entered from the terminal, 

KtYIN *JL,NVAR 

The *JH control right*justifles String input and blank-fills at 

left, 

KtYIN *JR?SVAR 

The * ZF control performs zero-fill on String entry. Characters 
that normally would be supplied as blanks are supplied as ASCII 
zeroes, 

KtYIN * ZF? SVaR 

The combination of *ZF and *JR is valia, 

KtYIN * Z F? * J Ht 3 V A ft 

The *i)t control can be used to restrict String input to digits 
only (0-9), A non-digit will not be accepted at the keyboard, 

KtYIN *l.)fc?SvA« 


7, input/output instructions 7-s 


CHAP ItR 



/•1• 1 0 Text Input 

The keyboard Input can be programmed for text input through 
the use of the *IT and *1N controls. The control *1T is used to 
turn«on the text input mode. This converts all alphabetic 
Characters to shift case as on an office typewriter. The keyboard 
remains in the text input mode until the control *IN returns the 
keyboard to normal mode. 

KEY IN *IT*SVAR**IN 


/.£ DISPLAY 

DISPLAY follows the same procedure as K L YIN except that when 
a variable name is encountered in the list following the 
instruction* the variable's contents are sent to instead of being 
requested from the console. Character strings are displayed 
starting with the first physical character and continuing through 
the logical length. Spaces will be displayed for any character 
positions that exist between the logical length and physical end 
of the string unless the *♦ mode (keyin continuous in the KEYIN 
instruction) is active* in which case no more characters are put 
out after the logical length. Numeric strings are always 
displayed in total. Quoted strings* list controls* and octal 
control characters may be included in the display instruction and 
are handled in the same manner as described for the KEYIN 
instruction. Note that the *T* *EQN* and *EOEF controls will 
simply be ignored in the DISPLAY statement. 

Examples: 

DISPLAY *PS;t*"RATE: %RATE: 

*P5:2*"AMOUNT: ",AMN T 
DISPLAY H ABC"*0<M*S1? 


PLLP 

btfcp causes a beep to be sent to the console. 
Example: 


BLtP 
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DA TABUS 110 0 supports either one local printer or one servo 
printer, depending on printer availability. 

The PRINT instruction causes the contents of variables in the 
list to be printed in a fashion similar to the way DISPLAY causes 
the contents of variables to be displayed. The list controls are 
much the same as DISPLAY except that cursor positioning cannot be 
usea# column tabulation is provided (*<n> causes tabulation to 
column <n> ) and *F causes an advance to the top of the next form, 
Uctal control characters may also be included in the print 
instruction. The PRInT statement may oe continued on more than 
one line by the use of a colon, 

t x amp less 

PRINT uAU ,*P0, M TRANSACT I U<* SUMMAR Y " , *1, *L l 
PN A hit, *n. , * 1 0 , R A 11, * c?0 , NUUPS , * iO ! 

A! v i7 , *L 

PRINT M ABC M ,0Pl,Si; 


The control character, *IF nay be used before any numeric 
variable to cause zero fill on the left, moving the sign to the 
left if necessary. The tabbing in the PRINT statement can move 
the carriage in the reverse direction and any sequence of printer 
controls will be executed in precisely the sequence specified. 

For example, one could print 10 characters, tan back to column b 
and overprint that column, do one line feed, and print five 
characters which would appear in columns h through 10 under the 
first line. One could then ao a form feea and print 10 more 
characters which would appear in columns 11 through at the top 
of the next page, 

If the servo printer is being used, the parer out condition 
will be checked whenever a top of form control is given in a PRINT 
statement. If, after the top of form function is performed, the 
paper out condition is present, the console will make a uniquely 
characteristic beeping sound (morse code " P") to alert the system 
operator that more paper must be placed in the r rin t e r , 1 he 

beeping sound will stop when the front cover of the printer is 
Swung out but will resume if the cover is replaced to its original 
position with the paper out indicator still on. I he recommended 
procedure is to open the front cover, remove the last form still 
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in the printer* place new paper in the printer with the top of the 
form aligned with the print head* and finally close the front 
cover* 

Another feature allowed with the servo printer is minor 
vertical spacing (there are eight minor vertical spaces for one 
standard line space)* Control characters given directly in the 
P RINT statement and can cause the paper to be fed either up or 
down up to seven minor vertical spaces* The characters zero 
through seven (in binary value) cause the paper to be fed down the 
page (the normal spacing direction) a corresponding number of 
minor spaces* The characters eight through fifteen cause the 
paper to be fed up the page (opposite to the normal spacing 
direction) zero through seven minor spaces respectively. The 
characters sixteen through twenty-two cause the carriage to move 
to the left seven through one column positions respectively 
(horizontal minor positioning cannot be performed). The character 
twenty-three causes no printer action. The characters twenty-four 
through thirty one cause the carriage to move to the right one 
through eight column positions respectively* Ihis feature on the 
servo printer allows different kinds of underscoring ano super - 
and/or sub-scripting in the printed output. Note that it is the 
user's responsibility to keep track of the carriage 
mic ro-position. 

7*5 Disk 1/0 

DA TABUS U00 allows a large variety of file structures and 
access methods. The structures can be dependent upon the physical 
sectoring of the disk, ohysically sequential, or logically 
indexed. The access methods can be physically random, physically 
sequential, logically random, or logically sequential with any mix 
of these being allowed on logically indexed files. This section 
will describe the various file structures that can be created, how 
positioning is maintained within these structures, and how access 
to desired information within the structure can be achieved. It 
will then describe the various operations that can oe performed 
upon the information within the file. 

/,5,1 1- i 1 e structures 

The most basic structure within a file is a physical record, 

A physical record can contain at most £51 data characters (note 
that there is no decimal number compression within any of these 
file structures so a number always occupies the number of 
characters that are contained within the h U R M which defines the 
number), A physical record corresponds to exactly one physical 
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sector on the disk and is always terminated by a 003 character* 

The next level of structuring is a logical record. Depending 
upon the way the user structures his tile there may or may not be 
an integral number of logical records within a physical record. A 
logical record is terminated by a 01b character after which 
another logical record begins, dote that logical records can 
extend across physical record ooundaries (terminated by 003 
characters) so that a file with logical records may appear in the 
first two physical records as follows (the items in parentheses 
are the logical and physical record termination characters); 

Oil 2bbbb382 AASDf QfctRKP KOSK A (01b) 1254848 (003) 

8483 LAKSJDFLKASDFKkJ (01b) Ob 828388483 hi (003) 

dote that the first logical record extends about two thirds of the 
way through the first physical record and is then terminated by 
the 01b character. The first seven characters of the second 
logical record are also contained in the first physical record at 
which point the first physical record is terminated. The rest of 
the second logical record extends about half way through the 
second physical record and is then terminated by the 01b 
character. At this point the third logical record starts and so 
on. 


Also note that there is no restriction upon the length of a 
logical record (a single logical record may extend across many 
physical records) but that it is a good idea to keep logical 
records reasonably short to prevent them from becoming hard to 
deal with. If it is wanted to keep only one logical record per 
physical record then make the file appear as follows; 

0ll28bb6382 AASpFUwfcKKf-.KDSKA (01b) (003) 

123*484884Hi LAKSJDFLKASOFKKJ (01b) ( 00 3 ) 

48828388483 KI Ih JL.K JL kSJDFKu (01b) ( U 0 3) 

dote that it took more disk space to store the same amount of 
information in this case than in the previous case. It is 
sometimes desirable to give up this snace in return for the 
capability of using the fastest accessing method of directly 
accessing Physical re c o r d s, a structure * hic h allows logical 
records to cross physical record boundaries is called a record 
compressed structure. 

In some data files large numbers of contiguous spaces appear, 
fnese files can be compressed even furtner than simple use of 
record compression by the use of space compression (the general 
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purpose DOS editor* the DOS SUNT program* a number of the terminal 
emulator programs* the DATABUS HOG compiler (listing file 
output)* and DATABUS HOG programs can all generate space 
compressed records)* A space compressed structure appears much 
like a record compressed structure except for the addition of the 
Oil control character# This control indicates that the next byte 
is a positive B-bit binary word which tells how many spaces were 
replaced by the compression code character pair. This number will 
never be less than d (since it is wasteful to expand one or zero 
spaces into two characters) and may be as large as 2bb, In 
addition, the Oil will never appear as the last character in a 
physical record since the character indicating the number of 
spaces will always appear after the Oil (otherwise the OOi 
indicating the end of t.he physical record and three spaces 
compressed could not be differentiated), For example, in the 
following a logical record is shown first without space 
compression and then with space compression: 


WUW IS THfc UMt FUN (01b) 

NO* IS THl(011)(0U2)TIMt(011)(Q07)FON (015) 


The second record is physically shorter than the first by six 
characters. It may seem silly to compress two spaces into a two 
character compression code but most programs do this because it is 
logically simpler to program. If more than 25b contiguous spaces 
appear in the data record* multiple space compression codes will 
appear. Space compressed records are most useful where large 
numbers of spaces appear in the file (as in print files) and where 
the records are not to be modified in place. If the record is to 
be modified in place* space compression is discouraged since the 
number of spaces could change and the physical length of the 
logical record could change. 


A file which can be accessed physically sequentially must not 
have any physical records without the proper format between the 
beginning of the file and an end of file mark. The end of file 
mark always starts at the beginning of a physical record and 
contains exactly six 000 characters followed by the physical 
record termination character (OOi), The rest of the characters in 
the physical record are of no significance. Note that if there 
are no physical records besides the one containing the ena of file 
mark, the file would be null (which is a valid condition for a 
file). 


A physically sequential data file 
One cannot tell that a file is indexed 
file since the indexing information is 


can be logically indexed, 
by looking only at the data 
maintained in a separate 
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file called the index file (and usually of DUS extension ISIK 
The index file contains the name ana extension of the data file 
which it indexes ana a set of keys and pointers which relate the 
key value of a logical record to its physical position within the 
data file. DUS utilities exist for the creation of the index file? 
which must always be performed outside of the DA 1 ABUS 1100 
interpreter. 

The index file is a n-ary tree where n is determined by the 
length of the key ana where there are enough levels to make the 
top node in the tree always fit within one disk sector (contain at 
most n branches). One can conservatively estimate the number of 
sectors that will be used in the index file by the following 
method. The actual number used may be less because trailing 
spaces in keys are discarded and more than the minimum number of 
keys may fit. in a sector. 

To compute the index file length? divide 25 0 oy the key 
length plus 7 and discard the remainder (do not round up the 
result). This number should then oe divided into the number of 
logical records to be indexed and the answer rounded up (if the 
remainder is non-zero then add one to the answer ana discard the 
remainder). Save this number which is the number of sectors at 
the lowest level of the index tree. Then divide 250 by the key 
length plus i and discard the remainder* This number should then 
be divided into the number saved before the previous step and the 
answer rounded up. Save this dumper which is the number of 
sectors at the next higher level of the index tree. If the answer 
produced is greater than one? repeat the previous step (dividing 
r?b0 divided by the key length plus 5 into the previous answer), 
when the answer has been reduced to one# total all of the numbers 
of sectors required for each level and the result will be the 
total number of sectors required in the index file. 

For example? assume that the data file contains luOOO logical 
recoras and the.Key is 10 characters long. The first computation 
is 250/(10+7) = 14, 71 or 14 discarding the remainder. The next 
computation is 100 0 0/14 - 7 1 4 # 29 or 71b rounding up* Iherefore? 
the lowest level of the index tree will require 715 sectors. The 
next computation is 250/(10+3) = 19.25 or 19 discarding the 
remainder. The next computation is 715/19 = 37.o3 or 38 rounding 
up, 1 here fore? the n e x t higher 1ev t' 1 of t ne index tree will 
require an additional .38 sectors, Tne next computation is 38/19 = 
2.0 0 or 2 rounding up, I here fore? the next h tuner level of the 
index tree will require an additional 2 sectors. The next 
computation is 2/19 = 0.11 or l rouncling up. Since one sector has 
been reached? the totals are made: 715+38 + ?.?+! = 756 sectors for 
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the entire index tree. 


7,b,2 Positioning and accessing 

In DATAUUS 1100# all files are referenced by way of logical 
files, fheae files are declared in the data area of the program 
using the FILE and IFILE: declarations. The declarations relate a 
logical file to a certain physical file that is specified by the 
UPEN or PREPARE statement performed upon the logical file. The 
data space used by the declaration holds all of the physical 
position information needed for that particular file. During file 
operations# DATABUS 1100 establishes a position within the file 
using a specified access method and then increments this position 
based upon the operation specified. 

For physically accessed files# a file position is defined by 
a physical record number (0 through the maximum number of records 
in the file) and a character pointer within this record (1 
through 249), When the file is initially opened (with OPEN or 
PREPARE)# the physical record number is set to 0 and the character 
pointer is set to l. All read and write operations sequentially 
increment the character pointer as the individual characters are 
read or written. If the physical record terminator (005) is 
reached during a read or the 249th character is written during a 
write# the character pointer is reset to 1 ana the physical record 
number is incremented (when writing# a physical record terminator 
is automatically written after the 249th data character before the 
physical record is written out to the disk and movement on to the 
next physical record is made). If an end of file mark is written# 
the current physical record is terminated# the physical record 
number is incremented (unless the position was at the start of a 
physical record when the operation was entered)# the end of file 
mark is written in the first seven characters of the new physical 
record# and the character pointer is left at 1, 

The character pointer may be set directly by what is called a 
tab operation in some disk I/O statements. WRITAB# UPDATE# and 
all read operations may contain these positioning operators. when 
physical access is being made to the file# the tab position given 
in tne statement is relative to the beginning of the physical 
record, when indexed access is being made to the file# the tab 
position given in the statement is relative to tne beginning of 
the logical record, Mote that when tabbing relative to the start 
of a logical record# it is an illegal operation to tao past the 
end of a Physical record. Therefore# when using tabs in indexed 
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files# there should always be an integral number of logical 
records per physical record to prevent tabbing past the ena of a 
physical recoru# Note that tabbing may not. be used when physical 
access is being made to a file declared as indexed* lo do tabbed 
physical accesses to the file as well as indexed accesses^ declare 
two logical files to the same data file; one to be used for 
physical accesses (raving been declared using the Pitt directive) 
and tne other to be used for indexed accesses (havina been 
declared using the I FILE directive), 

dhen an indexed file is being used# two additional pointers 
are kept for the logical file, Ihe first is a Physical record 
number and character pointer to tne first character of the last 
logical record accessed using the index, 1ne second is a pointer 
to the next sequential key after the last key accessed using the 
index. The first pointer enables re-reads ana updates to oe made 
to the indexed file and the second pointer enables the indexed 
file to oe accessed sequentially by key, Mote that neither of 
these pointers is changed when a physical access is mace using the 
logical file. 

An additional counter maintained for all logical files is the 
space compression counter. This counter is used in the 
decompression of spaces during read# the compression of spaces 
during write# and as a flay as to whether or not space compression 
is to be performed during a write (decompression will always be 
performed by the read). It is suggested that the reader come back 
and read the following paragraph closely after he feels he 
understands the disk reaa and write access methods and operations 
since some of these ideas are referenced in the following section. 
One must understand the following section to be able to 
effectively deal with space compressed files, 

Nhen tne space compression counter has a value of -1 duriny 
write operations# spaces will not oe compressed in the output, 
fhe counter value is set to 0 when the file is initially opened 
(using OPEN or PREPARE) and at the start of a physically random or 
indexed access read operation or when a *+ control in a write 
operation statement is encountered, Ihe counter value is set to 
-1 when a Physically random or indexed access write operation is 
performed or when a *— control in a write operation statement is 
encountered, Therefore# space compression will be on at the 
beginning of a pnysicailv sequential write t na t occurs as the next 
operation after the file has been opened or a read operation of 
any kind has been performed# space compression will be off at the 
beginning of any physically random or indexed access write 
operation, and the status of space compression ^ill not be changed 
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t>y any other operations* If the aesired space compression mode 
for a write operation is not obtained by the above rules then the 
*+ and *- controls will have to be used to get the aesired mode. 
Note that these controls can erase the memory of previously 
accumulated spaces if used after the beginning of the statement 
list while spate compression has been on. 


Physically Random Access 

The fastest random access method available under DATABUS 1100 
is physically random access* To perform a physically random 
access, a numeric variable containing a positive number is 
supplied as the record specifier to the statement. Any fractional 
part of this variable will be truncated and then the physical 
record number will be set to its value. The character pointer 
will then be set to one and the read or write operation will 
proceed. Unfortunately it is often hard to find a map from a key 
value in the data records to a fairly contiguous set of numbers, 
necessatating the use of an index structure. However, if such a 
map can be found, physically random accessing imposes lower 
overhead than the indexed accessing. 


7,5.2.2 Physically Sequential Access 

One can cause the read or write operation to simply pick up 
where the physical record number and character pointer are 
currently positioned by specifying a numeric variable with a 
negative value in the record specifier. Usually, when a read or 
write operation is finished, it leaves these pointers at the 
beginning of the next logical record. However, a read or write 
operation can be parameterized Cbv placing a semi-colon at the end 
of the variable list) such that it will simply leave the pointers 
after the last character dealt with. In this case, the physically 
sequential access can be used to continue a previous operation 
from where that operation stopped. The previous operation could 
have used any access method (including this one) which implies 
that one can continue a logical record to any length. However, it 
is often a good idea to keep logical records reasonably short to 
prevent them from becoming hard to deal with. Note that the SORT 
and INi)tx utilities require the key value to be within the first 
2b5 characters of a logical record. 
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/. b. <?« 3 Inaexed Access 


as described in the previous section# 


4 i 1 a 


3 ft 


associated index file which associates key values to physical 
record number and character pointer values* There are five basic 
indexed operations* read a record of a given key value# read a 
record of the next ASCII sequential key value# update the record 
that was last accessed through the index# insert a new record of a 
given unique <ey value# and delete a record of a given 
Since there can be any number of indexes into one data 
insertion and deletion operations will have to perform 
insertions and deletions up on all indexes* Therefore# 
operations will nave to be performed once for each index that 
points to the data file. 


key value* 
file# the 
key 
these 


tor the indexed read and write operations# once the indexed 
access has been performed (the physical record number and 
character pointer values have been set)# the actual operation is 
performed identically to the operation as performed for physical 
accesses. The one exception is when a record is being inserted* 
Since records are always inserted at the physical end of the file# 
a new end of file mark must be written after the inserted record 
has been written. In this case# a flag is set so that when the 
write statement has been finished Cana it has not been specified 
that the write operation is to be continued)# then the end of file 
mark will automatically be written. This automatic end of file 
mark writing operation will not oe performed if the write 
operation is to be continued# thereby making it the responsibility 
of the QATARU3 1100 program to write the end of file mark when the 
record has finally been written in its entirety. 

1 he indexed access using a given key value will cause at 
least one disk sector to be read for each level in the inaex in 
addition to whatever disk functions are required to perform the 
actual read or write operation* If records have been inserted 
into the i n d elxf and the I to D C X utility has not been run since then# 
a d ditio n a 1 disk sector reads may take place depending upon the 
length and path of the linked list at the lowest level in the 
index. Therefore# when many insertions are being performed the 
I hi 0 fc X utility should b e run os often as is pract i cal to weep the 
access time from becoming overly large. also# wren a a a t a ease is 
oeing initialized# it is not a good idea to build it. from a null 
indexed file doing insertions. It would no much more efficient to 
build tre data base physically sequentially as long as indexed 
accesses neeu not be made to it and then create the index file on 
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a reasonably large data tile after which additional insertions can 
then be made using the insertion facility* 


/• 5,«?,4 Physical Access to Indexed Files 

Both physically random and sequential accesses may be made to 
indexed files* Therefore# a file can be indexed only on primary 
records and the rest of the records obtained using physically 
sequential accesses, A file which is already physically randomly 
accessed may have an index added based on some other key value for 
fast access to other aspects of the file* If the file has been 
declared as indexed (using the IF1LE directive) then all access 
methods may be used upon it. However# if the file has been 
declared as non*indexed (using the FILE directive) then only 
physical access methods may be used upon it. 


7.5*3 PREP or PREPARE 

PREPARE (the compiler will also accept a mnemonic of PREP) is 
used to create a new file under the DOS file structure* The name 
used for the DOS file name is given in the string variable or 
literal specified in the PREPARE instruction. The characters used 
for the name start from under the formpointer of the specified 
variable and continue until either the logical end of the string 
has been reached or eight characters have been obtained, (If the 
item is a literal# the formpointer is one and the logical length 
points to the last character,) If the end of the string is 
reached before eight characters are obtained# the rest of the 
characters are assumed to be spaces. All data files used in 
DAI ABUS 1100 are of extension TXT, The character after the 8th in 
the name variable or the character after the logical length# if 
the name is less than 8 characters# is used as the drive number 
for that file. If the character is not an ASCII 0# 1# 2# or 3 or 
no character physically exists past the name# no drive 
specification is assumed and all drives starting with drive zero 
are searched when looking for a name in the directory or 
directories. Otherwise# only the drive specified is searched. 

If the file already exists (and is not delete or write 
protected)# it is deleted and a new file created. If the file has 
any protection or the drive specified is off line# an 10 error P 
or m respectively will occur. 
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DATABUS 110U always deals with "logical files” once they are 
openea with either the PREPARE or GPfcN instructions* Any number 
of logical files can be opened at one time? the limitation being 
the amount of space the user has available to devote to thf? data 
space needed by each logical file that is declared* Ihe logical 
files are declared using the FILE or IE1LE instructions (see 
Section 3.1), (MOTE: The PREPARE instruction can only create a 
file that has been declared as a PILE type, 1 he compiler will 
flag an attempt to PREPARE, a file that has been declared as an 
I FILE. type* IF'JLfc type files must be created by use of the INDEX 
utility running under the DOS* 

Eor example# let the following definitions be made: 


EDECL 

E ILE 


E NAME I 

IN l T 

" E IL E. I " 

ENAMEa 

I NIT 

"FILL a 1" 

ENAME 3 

IMT 

“ASIJFF ILE3P” 


Let the formpointer and logical length of ENAME1 be 1 and b# that 
of ENAi v ihc be 1 and 9, and that of ENAfWEi be 5 and 9, Then if the 
statement; 

PREPARE E0ECL/ENAME1 

were executed/ the file EILE1/TXT would be prepared as logical 
file EOECL on the first drive (beginning with drive 0) on which 
space was available* If the statement! 

PREPARE FDECL/FnAMEP 

were executed/ the file FILE P/TXT would be prepared as logical 
file FDECL on drive 1* If the statement: 

PREPARE E DELL/F NAME 3 

were executed# the tile FILE3/TXT would be prepared as logical 
file FDECL on drive ?.. If the statement: 

PREPARE EOECL/”ASDE” 

a ere executed# tre file A30E/TxT would be prepared as logical file 
EDM..I. on the first drive on -Mich space ^as available. If the 
statement: 

PKEPAKf E l>ECL, u bMtR 3" 
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were executed* the file Gw£R/TXT would be prepared as logical file 
FDECL on drive i. 

If the logical file specified is already open (having been 
specified in a previous PREPARE or OPEN instruction and not since 
in a CLOSE instruction)* the old file will ne closed before the 
new one is aeaIt with, 

when preparing a very large file a prograrr should be run to 
write a dummy record into the largest record number. This will 
cause the DOS to allocate all records up through the one accessed 
in as physically contiguous a manner as possible* thus increasing 
the speed with which the file may be randomly accessed, Note that 
the use of the DUS implies that a tile must be contained on one 
drive. If the writing of the dummy record tries to extend the 
file past the amount of space available on tne disk* an error R 
will occur, 

Rememper that space compression mode for writing is left on 
oy a PREPARE instruction , 


/,5.4 OPEN 


OPEN causes a DOS file already in existence to be prepared 
for use by the DATABUS 1100 program. Except for the fact that it 
deals only with files already in existence (giving an 10 error if 
the name specified cannot be found and not killing the file if it 
already exists)* OPEN works in a fashion similar to PREPARE, In 
addition* OPEN may specify a file that has been declared as an 
1E1LE type (indexed sequential). In the IFIIE case* the extension 
of the name supplied in the literal or string variable is assumed 
to be ISI instead of TXT (the 1SI file header contains the name of 
the data file it indexes). The opening of the ISI file 
automatically causes the data file indexed by the ISI file to be 
opened. If the data file is indexed by more than one index file 
(ISI file) then each of the indices must be opened using a 
different logical file for each one, (when dealing with indexed 
files* the data file itself is never explicitly specified since it 
is automatically specified by the header of the ISI file that is 
opened,) For example* if the following logical files were 
dec Iared! 

FDECL1 FILE 

FDECL2 IHLE 

hDECLi IF ILF. 

and a data file FILEl/TXT existed and the ISI tiles FILE1/ISI and 
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FILfclA/ISI had been created using the I * -> C h X utility as follows! 

INDEX FILE 1 1-5 
INDEX F IL E 1, F IL E1A ; 6 -10 


and the following OPEN statements were executed! 

OPEN FDKCL1 r"FILE l" 

OPEN EDECi^,"FILE3 M 

OPEN FDECL4/ M ElLtlA" 

then the logical file FDECL1 would be opened to the normal 
(physical access) file FILE1/IXT, the logical file FDECLP would be 
opened to the indexed file whose index name was FILE1/1SI and 
whose data file name (as specified in the FILE1/ISI header) was 
FILEl/lXT, and the logical file FDECL.5 would be opened to the 
indexed file whose index name was FILEI A/IS I ano whose data file 
name was FILEl/TXT. This would give physical access plus access 
via two different indices into the data file FILEi/TX-T. Note that 
an ISI file does not have to reside on the same disk as the data 
file that it indexes• 

Remember that space compression mode for writing is left on 
by an OPEN instruction , 

7.5.5 CLOSE 

CLOSE closes the specified logical file. This insures that 
any newly allocated space that was not used in the file will be 
returned to the DOS for allocation to another file* 

Ex amp 1e! 

CLOSE FOt CL 

If only reads or updates were performed on the fi 1e# the CLOSE 
instruction does not need to be used. Also, a CLOSE is 
automatically performed when one opens or prepares a logical file 
that is already open. when a CmaIn is performed, all files that 
are currently open are automatically closed without space 
deallocation being performed. N o t e t n a t this m e a n s files cannot 
be? held open across program chains. Also, if tnp interrupt key is 
struck a chain is automatically invoked meaning that all files 
will be closed without space deallocation. 

LLuSt is also usea to delete a tile fro- the DhS file system. 
I t a rVfcr’ is performed on a logical tile and the next operation 
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performed upon the logical file is a CLOSE, the file described by 
the logical file declaration will be aeleted from the DOS file 
system. 


7.5,8 HEAD 

HEAD performs all file data reads (physically random, 
physically sequential, indexed random, tabbed or not) except for 
indexed key sequential reads. The READ statement format consists 
of a logical file declaration name, a record specifier variable 
(numeric or string), and a list of variables to be filled by the 
data from the record. The list may also contain tab indicators 
which can specify that only certain portions of the data record 
actually be read into the variables listed. Tabbing is a DATABUS 
1100 feature which can eliminate unwanted data transfers from and 
to the disk controller buffer and can allow the programmer to save 
considerable space in his data area. It can only be used, 
however, when the logical records do not cross physical disk 
sector boundaries. This condition can usually be enforced through 
the use of the REFORMAJ utility and careful use of the DATABUS 
1100 write instructions, 

i«ben data is transferred from the record into a numeric 
variable that is specified in the READ statement list, the number 
of characters corresponding to the length of the variable are read 
in. Any non-leading spaces read will be converted to zeros (e.g. 
sis2sl, where s stands for a space, would be read as s3Q2QD» If 
a non-numeric character other than a negative sign as the first 
non-space character, decimal point, or space is read, a FORMAT 
trap will occur, A FORMAT trap will also occur if the variable is 
dimensioned to one and the character is a negative sign, A FORMAT 
trap occurs if the data does not match exactly the format of the 
numeric variable to be read. For example, if X was dimensioned to 
4,2 and the characters read were 77778/7, a FORMAT trap would 
occur since the digit 8 appeared where a decimal point appeared in 
the variable. If a FORMAT trap occurs during a read, the logical 
file pointers are left pointing at the current file position 
before the read was attempted. 

If a numeric variable to be read includes a H minus-overpunch" 
character, the variable is converted to the normal numeric format 
with the minus sign preceeding the first non-blank digit, 

when a string is read, the number of characters corresponding 
to the physical length of the variable are read into the variable. 
The formoointer is set to one ana the logical length is set to 
point to the last physical character in tne string. 


7-2G 


DATABUS 11GU 



If the end of the logical record is reached before all 
variables in the list have been read in full# ana the variable 
which is being filled with data when the FOR is detected is a 
string? it will have its logical length pointer set to the last 
character entered before the tUR was reached and the rest of the 
characters physically in the string paaaeo with spaces, Note that 
this fact can be used to advantage when reading sequential space 
compressed files, Remember that the trailing spaces in such file 
records are not written and that the DISPLAY and PRIMT statements 
can be forced to output only up througn the character being 
pointed to by the logical length (using the * + control). These 
features can be combine'd to make listing sequential files on the 
terminal or printer much faster by the deletion of trailing 
spaces, 

Ihe above discussion deals with the action taken when the end 
of the logical record is reached while reading data into a string 
variable. If the data is being read into a numeric variable? the 
rest of the variable is padded with either spaces or zeros as 
appropriate. Note that if one of these locations within the 
variable is the decimal point? a FORMAT trap will occur. 

If the list contains more variables after the one being 
filled when the end of the logical record is detected? these 
variables will either be set to zero (if numeric) or have their 
logical lengths and formpointers set to zero. 

If tne list is exhausted before the logical end of the record 
is reached? two actions can take place. If a semicolon is placed 
at the end of the list? the file pointers are simply left after 
the last character read so a subsequent I/O operation will pick up 
where tne pointers were left. If a semicolon is not placed at the 
end of the list# the file pointers are advanced until they are 
pointing after the next logical end of record marker so a 
subsequent I/U operation will pick up at the start of the next 
logical record, 

A HAgGt trap will occur ana the logical file pointers will 
not be changed if an attempt is made to read a record which has 
never before been written, (Note that tne DOS KANGt or FORMAT 
traps will ooth cause a DAT Abl.lS 1100 RAnGF trap and that the 
t)A 1 Ad OG 1100 FORMAT trap has nothing to do with the DUS FORMAT 
t r ap , ) 

Ihe following is a list of tne different types of RtAD 
statements. In the examples? the variable Ri\ is a positive 
numeric item? 5CD is a negative numeric item? KtY is a non-null 
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string item# NULL is a null string item# FNDECL is a FILE, 
declaration name# FIDECl is an IFILE declaration name# and FDECL 
is either a FILE, or IFILE declaration name. 


7,b,b,l lest for End Of File 

Before discussing the READ operations# the end of file 
indicator should be discussed. The OVER condition flag being set 
indicates that a READ operation has run across an end of file mark 
on physical accesses or has accessed a non-existent key on indexed 
accesses. The test for the UVER condition should be made after 
the READ statement. For example, 

READ FDECL# SEQ # A # B # C 
GUI 0 LABEL IF OVER 

If an end of file is read on physical accesses# the variables in 
tne statement will be set to zero or have their logical lengths 
and formpointers set to zero depending upon whether they are 
numbers or strings respectively. Note that the OVER condition 
will also be set if a semicolon appeared at the end of the READ 
list. The way the READ mechanism works# whenever an end of file 
mark is found the file pointers "stick” at the beginning of the 
mark and spaces are supplied for all characters requested to fill 
variables. Therefore# if one continues to perform READ operations 
ignoring the fact that the OVER condition flag is being set# the 
READ operations will simply continue to set the OVER condition 
flag and clear or zero all variables. This is also true of READ 
operations whose lists are terminated by semicolons. 

The OVER condition being set after an indexed READ operation 
indicates that the KEY specified could not be found in the index. 
For a READKS (read key sequential) operation# the OVER condition 
being set indicates that the last record in the sequence has been 
read and the current operation tried to read a non-existent 
record. See the relevant sections that follow for further 
information on indexed operations setting the OVER condition flag, 

READ F DECL # RN f A # B # C 

(his is a physically random access read. The physical record 
pointer is set to the value of RN and the character pointer is set 
to the beginning of the physic a 1 record (any digits after a 
decimal point in HN are truncated). 
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discarded since the operation leaves the file pointers pointing to 
the beginning of the following logical record. 

READ fdecl*rn;a*b*c? 

This is similar to the above operation except that the file 
pointers are left pointing to the character after the last one 
read into the variable C. This enables another I/O operation 
(write as well as read) to continue from the character after the 
last one loaded into the variable C. 

READ FDECl*SEQ;A,B,C 

This is a physically sequential access read. Variables A* 0# 
and C are read from logical file one beginning at the position 
indicated by the current file pointer values. The file pointers 
are left pointing to the beginning of the following logical 
record. 


read fdecl*seq;a*b*c; 

This is similar to the above operation except that the file 
pointers are left pointing to the character after the last one 
read into variable C. This enables another I/O operation (write 
as well as read) to continue from the character after the last one 
read into the variable C. 

READ FDECLrZEROn 

Assume that the numeric variable ZERO is defined to be a zero 
in value. This operation would then cause the file pointers to be 
positioned to the physical beginning of the file exactly as if a 
PREPARE or OPEN Instruction had just been performed. This implies 
that space compression will be on if a WRITE is then performed* 
and the user must turn off space compression if it is not desired, 

READ FDECL*RN?A * * 100 *B,*NVAR,C**BQ*D; 

By including the tabbing controls in the read statement list* 
selected positions may be read from a record without having to 
read all of the positions in the record. The list controls 
^(numeric literal) or *(numeric variable) are used to position the 
character pointer to the specified character position in the 
specified physical record and may appear anywhere in the list. 
Reading for the rest of the list (unless another positioning 
control is encountered) begins at the character position specified 
by the positioning list control. Note that tabbing in physically 
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random access reads is allowed only upon logical files that have 
been declared using the FILE directive (since the tab values are 
biased by the starting point of the last index accessed record on 
read* using a logical file that has been declared using the IFILE 
direct1 ve). 

Tab positioning in physically random access read operations 
is calculated from the first data position of the physical record 
specified* If the tab position is greater than 249 characters* an 
IU trap will occur. When reading -is completed* the character 
pointer is moved to the beginning of the next logical record if 
the statement list is not terminated by a semicolon* If the list 
is terminated by a semicolon* the character pointer is left 
pointing one character position past the last character read* 

Note that tab positioning in a physically random access read 
operation will inhibit the ability of that operation to detect an 
EOF mark that may be in the given sector. Either a non-tabbing 
read can be performed first (to determine whether an EOF exists in 
the sector in question) followed by the tabbing read if the EOF 
was not found* or the programmer can invent his own EOF marking 
convention (which will not require double reads). 

The above example would set the physical record pointer to RN 
and the character pointer to one and variable A would be read. 

The character pointer would then be set to one hundred and 
variable B would be reaa. The character pointer would then be set 
to the value contained in the numeric variable NVAR and variable C 
would be read. The character pointer would finally be set to 
fifty and variable D would be read. The character pointer would 
be left pointing after the last character read into variable D 
since a semicolon appears at the end of the list. 

Note that for physically random access reads* it is generally 
a good idea to place a semicolon at the end of the list if the 
next read will involve an access to a logical record other than 
the one which appears next physically. The reason for this is 
that there is no need to require the processor to scan the rest of 
the logical record in an attempt to place the file pointers at the 
beginning of the next logical record when that placement will not 
be used. This is especially helpful if the read does not leave 
the character pointer near the end of the logical record as would 
often be the case where tabbing is being used. 

Note that using the read tab on physically sequential access 
reads (where the record number specified is a negative value) is 
possible but not advisable. Tab positioning on physical accesses 
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is always calculated from the first character position in the 
current physical record. The program could obtain characters from 
a previous or following logical recora if tabbing is used in a 
file where the relationship between logical and physical record 
boundaries is not known, 

READ FIDECL,KEY;A,B,C 

This is an indexed access read. The index file is searched 
for the key given in the string variable KEY starting with the 
formpointed character and going through the character pointed to 
by the logical length. The KEY is considered to match an item in 
the index file if both have exactly the same number of characters 
and all of them match or if all of the characters up through the 
length of the index item match and then the rest of the characters 
in the key variable are spaces. Remember that there are no 
trailing spaces in the index file key items. This means that even 
if the INDEX utility was told to index on columns i through IQ# if 
that field in a certain record consisted of an M A M followed by 9 
spaces* the index file key item would consist of an M A M followed 
by the key terminator character. 

If a match is found* the next key pointers are left pointing 
to the following item in sequence in the index file* the physical 
record and character pointers are obtained from the index file* 
and the rest of the read proceeds precisely as if a physically 
sequential read were being performed, when finished* the file 
pointers are left at the start of the physically next logical 
record in the file. 

If no match is found* the OVER condition flag is set* all of 
the variables in the list are left with the values they had before 
the READ was attempted* and the next key pointers are left 
pointing to the next item in sequence in the index file. 

Therefore* a read key sequential (see the section on READKS) can 
be performed to obtain the first item by collating sequence 
following the item that could not be found. This can be very 
useful for obtaining lists of classes of items. 

For example* one could have a file of serialized items with 
model codes. One could index the file on the model code followed 
by the serial number. He could then access a given model code 
with a serial number of all spaces (spaces being lower in 
collating value than zeros). The access would return with the 
OVER condition flag set indicating that no such item existed in 
the file. The program could then proceed to read sequential by 
Key obtaining a list of the serial number of all items of a given 
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model code by the collating sequence of the serial number* The 
program would have to detect when the model code changed to 
determine when the list of a given model code should be 
terminated. 

Another feature is that physically sequential accesses can be 
made after an indexed access* The INDEX utility allows a file to 
be indexed only upon what are called primary records (this is a 
SORT utility option). For example* a file could consist of a 
primary record followed by five secondary records followed by 
another primary record followed another five secondary records and 
so forth. If the index were built only on the primary records* 
one could do an indexed access to the primary record and then do 
five physically sequential accesses to read the five secondary 
records• 

An indexed access read takes approximately half a second 
regardless of the size of the data file. This assumes that 
relatively few insertions have been made upon the file* See the 
section below on index insertions (WRITE) for a discussion on how 
insertions can affect the indexed access timing, 

READ FIDECL*KEY?A*B*C; 

This is similar to the above operation except that the 
physical file pointers are left after the last character read 
rather than at the beginning of the physically next logical 
record. This is useful if one is not going to do a physically 
sequential access afterwards since it saves time not scanning to 
the end of the logical record. It is also useful if one wants to 
read the rest of the record in a later READ operation or to update 
the rest of the record by following the indexed read by a 
physically sequential write, 

READ FIDECL*NULL;A*6*C 

This is an indexed re-read. If the index key supplied to the 
READ operation is null (logical length and formpointer equal to 
zero)* then instead of accessing a given item based on the key* 
the operation re-reads the last logical record that was accessed 
using the index specified by the given logical file. Remember 
that physical accesses do not change the pointer to the last 
record accessed using an indexed access. 

This operation enables one to re-read an indexed record 
without having to search the index file for a given key. An 10 
error is given if there has not previously been a successful READ 
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performed using a non-null key on the specified logical file. 
Otherwise* the operation proceeds exactly as in the normal indexed 
access READ, 

. READ FIDECL*NUIL?A*B*C; 

This is similar to the above operation except that the 
physical file pointers are left after the last character read into 
the variable C, 

read fidecl,key;*25,b,*nvar,c,mo,d; 

This operation performs an indexed access* positions the 
character pointer to column 25 relative to the beginning of the 
logical record* reads the required number of characters into the 
variable B* positions the character pointer to the column 
specified in the numeric variable NVAR relative to the beginning 
of the logical record* reads the required number of characters 
into the variable C* positions the character pointer to column 10 
relative to the beginning of the logical record* reads the 
required number of characters into the variable D* and leaves the 
physical record pointers after the last character read. Note the 
difference between using tabbing in physical accesses and indexed 
accesses is that in indexed accesses the tab position specified is 
made relative to the beginning of the logical record and not to 
the beginning of the physical record. The reason for this is that 
one may desire to have several logical records per physical record 
in an indexed file and be able to use tabbing on the accesses to 
that file. The problem is that when doing indexed accesses* the 
program has no idea of where the logical record is in the physical 
record so the system must make the tab values relative to the 
beginning of the logical record to make tabbing in indexed files 
useful. Remember that an attempt to cross a physical record 
boundary with a tab results in an IG error. 

Note that once again it is usually advisable to use a 
semicolon at the end of statements using tabs since it just wastes 
time to cause the processor to scan to the beginning of the next 
logical record if the next access to the file will not be to the 
physically next logical record, 

READ FIDECL*NULi;*25*B**NVAR,C**10*D? 

This is similar to the above operation except that the last 
key-accessed record in the given logical file is read Instead of a 
new index access being made. 
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7.5.7 READKS 

This is a read key sequential operation. Whenever an indexed 
access is made the access routines update a pointer to point to 
the following key entry in the lowest level of the index. When a 
READKS operation is performed* instead of searching for a key of a 
given value* the key pointed to by the next key pointer is used 
(no key is supplied to the READKS operation), READKS also bumps 
the pointer to the next key in the index'causing successive READKS 
operations to obtain records in collating sequence. If the 
pointer to the next key in the index is pointing past the last key 
in the index (either a key larger than any existing was accessed 
in the last indexed access or the last key sequential read 
obtained the last record in the collating sequence) then execution 
of the READKS operation causes the OVER condition flag to be set 
and all of the variables in the list will have an indeterminate 
value. The READKS instruction can appear as follows: 

READKS FIDECL!A * B * C 

READKS FIDECLM25*A**NVAR*B*MQ*C? 

Except for the access method* the functioning of READKS is 
identical to the functioning of an indexed access READ (this is in 
reference to the action taken once the desired logical record is 
1ocat ed), 

7.5,6 WRITE 

The write statement is used for physically random* physically 
sequential* or indexed insertion writes. The write statement 
consists of a logical file declaraction name and a record 
specifier (a numeric variable for physical accesses and a string 
variable for indexed insertions) followed by a list. The list may 
include variable names* quoted characters* and octal control 
characters (000 through 037), Note that tab positioning is not 
allowed in the WRITE operations (the WRITAB operation must be used 
to do tabbing in writing functions). 

Each character string variable in the write list will be 
written from its first physical character through the logical 
length. Spaces will be written for any character positions 
between the logical length pointer and the physical end of string. 
Each numeric item will be written in total. Note that only the 
data in each variable is written and not any of the control 
information (logical length, formpointer* 0200* or ETX), The 
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quoted items and octal control characters will be written exactly 
as they appear in the list. For example# if the following 
definitions were made: 

TIME. I NIT " 10 S 2 3 " 

TOTAL FORM "001" 

FDECL FILE 

and the statement; 

WRITE FDECL/RN# "TIME: % TIME# 0 15# ’’TOTAL 8 "/TOTAL 
were executed# the file would be written with the characters; 

TIME: IQ:23(015)TOTAL: 001(015)(003) 

where the (015) and (003) denote control characters. Remember 
that certain control characters (000# 003# 011# and 015) mean 
special things to the read operations and their use can cause 
confusion. In the example above# two logical records were written 
with the one write statement because of the 015 written in the 
middle. 

ji 

The format control# *ZF may be used before any numeric 
variable to cause zero-fill on the left# moving the sign to the 
left if neccessary. 

The format control *MP converts a numeric variable to a 
"minus-overpunch" format# where# on negative numeric variables# 
the minus sign is over-punched over the rightmost digit. The *ZF 
and *MP are valid for the immediately following variable only, 

WRITE FDECL#RN!*ZF#A,*MP#BrC 

A negative overpunched zero converts to a right bracket ">" and 
one thru nine convert to "J" thru "R". 

The following is a list of the different types of write 
statements. Although the following examples show lists with only 
three variables# it should be remembered that all of the WRITE 
operation lists can contain the various items shown in the above 
example• 


WRITE FDECL#RN)A#B#C 

This is a physically random access write. The physical 
record pointer is set to the numeric value contained in RN and the 
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character pointer is set to the beginning of the physical record 
(any digits after a decimal point in RN are ignored). Variables 

A, B, and C are then written followed by end of logical record 
(015) and end of physical record (003) characters. The character 
pointer is left pointing to the 003 character. Note that all 
WHITE statements are allowed on either FILE or IFILE declared 
logical files, 

WRITE fdecl,rn;a,b,c? 

This is similar to the above operation except that the 015 
and 003 characters are not written after the last data character. 
The character pointer is left pointing after the last character 
written. This operation is useful for writing the first part of a 
record where more of the record will be written later or for 
updating part of a record where the 015 and 003 would, if they 
were written, destory data characters that followed, 

WRITE FDECL,SEQ; A,B,C 

This is a physically sequential access write. Variables A, * 

B, and C are written beginning at the character position currently 
being pointed to by the logical file pointers. If the file had 
Just been opened, the current position would be the first 
character position in physical record zero of the specified 
logical file. Otherwise, the file pointers would be positioned 
according to the results of the last read or write operation 
executed. End of logical record (015) and end of physical record 
(003) characters are written after the last character in variable 

C, The character pointer is left pointing at the 003 character. 
Remember that space compression mode will be on after the file is 
opened which means if the file is to be opened and then written 
sequentially but space compression is not to be used, one must 
execute a write statement whose first list item is a *• control, 

WRITE FDECL,SEQ;A,B,Cf 

This is similar to the above operation except that the 015 
and 003 characters are not written after the last character in the 
variable C, The character pointer is left pointing after the last 
character written, 

WRITE FIDECL,KEY?A,B,C 

This is an indexed access record insertion. The KEY variable 
must not be null and the key specified must not already exist in 
the index specified by the given logical file (either condition 
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will cause an IQ error). The search algorithm used to determing 
that the key is not already in the index is identical to that used 
in the indexed access READ operation. 

The key whose value lies from the formpointer through the 
logical length of the KEY variable is inserted in the index file 
specified by the given logical file and the record is written at 
the physical end of the data file. The record is always started 
at the beginning of the physical record which contains the EOF 
mark and then a new EQF mark is automatically written in the 
physical record which physically follows the new record. Note 
that this implies that for each record inserted into the data 
file/ at least one physical record will be used (even if the 
record inserted is only 30 characters long). The record inserted 
may be longer than one physical record/ in which case an integral 
number of physical records will be used for the inserted record. 
The reason the inserted record is always started at the beginning 
of a physical record is that this insures that tabbed operations 
can then be performed upon the new record in case they are desired 
(assuming the new record will fit within one physical record). 

Insertions will take longer if many records very close 
together in collating sequence are inserted together. When 
inserting items whose keys fall randomly within the collating 
sequence one can usually insert a number of records equal to one 
tenth of the total number of records in the file before the 
insertions will start to take significantly longer. It is 
generally a good idea to run the INDEX utility as often as 
practical when many insertions and deletions are being performed 
to keep the speed of insertions and indexed accesses as high as 
possible. 

WRITE FIDECL/KEY/'A/B/C? 

This operation is also an indexed insertion write except that 
the new EOF mark is not automatically written at the end of the 
file. One could desire to finish writing the record with a later 
operation and could do this by following the above statement by 
physically sequential write operations and then writing the EOF 
marx at the end of the file One must make certain/ however/ that 
in doing this that no other program can try to do an insertion 
before the EOF is written or the other program will get a RANGE 
trap since it will not be able to find the EOF which it will want 
to overstore. 
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7.5,9 rtRITAB 


This operation is the write tab feature which requires a 
different instruction mnemonic from the normal write operations, 
with this feature# characters may be written into any character 
position of a physical record without disturbing the rest of the 
record, A RANGE, trap will occur and the logical file pointers 
will not be changed if a write tab is used on a record of the file 
that has never been written before. The write tab can be 
performed only upon logical files which have been delcared using 
the FILE declaration. The UPDATE operation is used to do tabbed 
writes into indexed files. The list controls ^(numeric literal) 
or *(numeric variable) are used to position the character pointer 
to the specified character position in the current physical 
record, writing of the variable begins at the point specified by 
the position control. If no positioning is specified# the writing 
of the first variable starts at the beginning of the physical 
record. 

Tab positioning in physically random accessed writes is 
calculated from the first position in the specified physical 
record. If the tab position is greater than 249 characters# an 10 
trap will occur. Only the quoted characters# octal control 
characters# and variables appearing in the list are written. The 
character pointer is left pointing one character past the last 
character written (there is an implied semicolon at the end of the 
wRITAB operation), For example# 

wRITAB FNDECL#RN?A#*7Q#B#M0#C#*NVAR#"TIME" 

would write variable A beginning with the first position in the 
physical record specified by RN, Variable B would be written 
beginning at position 70 in the physical record ana variable C 
would be written beginning at position 10 in the physical record. 
The characters "TIME” would be written beginning at the position 
specified by the numeric variable NVAR (any places after a decimal 
point will be truncated) and the character pointer would be left 
pointing one character past the "E" written for the quoted 
characters "TIME”, An IQ trap would occur and the record would 
not be written if NVAR was greater than 249, 

A word of caution is appropriate at this point in the 
discussion. If in the aoove example NVAR had had a value of 248# 
the letter M T M would have been written as the last character in 
the physical record specified by RN, That physical record would 
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then be written and the following physical record would have been 
read into the buffer. The letters " IME” would have then been 
written into the first t'hree positions of this new physical record 
and the record then written back out. If more tab positions had 
followed the writing of the characters "TIME"# these would have 
been in the new physical record# not in the one specified by the 
contents of RN. This action would probably not be that expected 
by the programmer and would all take place without a whimper of an 
error message from the interpreter. Just be careful about your 
tab positions! 

Note that using WRITAB with a physically sequential access 
Cwhere RN contains a negative value) is possible but not 
advisable. Tab positioning on physical accesses is always 
calculated from the first character position in the current 
physical record. The program could obtain characters from a 
pervious or following logical record if tabbing is used in a file 
where the relationship between logical and physical record 
boundaries is not known. 

7.5,10 UPDATE 

This operation allows modification of the last record that 
was accessed with a READ or READKS operation. Only the logical 
file declaration name is supplied to this operation (no key is 
supplied) but the list may have all of the items allowed in the 
wRITAB list. For example# 

UPDATE FIDECDA#*2Q#B#*40# H ASDF%0 33 

would read the last indexed accessed record in the logical file 
FIDECL and would overstore the first characters in the logical 
record with the contents of the variable A# would overstore the 
characters starting with the 2Qth character in the logical record 
with the contents of the variable B# and would overstore the 
characters starting with the 40th character in the logical record 
with the characters H ASDF M followed by the octal character 033. 

The character pointer would be left pointing after the 033 
character (the last character written from the list). Note that 
as in indexed access reads using tab positioning# the tab 
positions in the UPDATE operation are relative to the beginning of 
the logical record (and not the oeginning of the physical record 
as in WRITAB). As in the wRITAB operation# the UPDATE has an 
implied semicolon at the end of its list. 
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7,5.11 INSERT 


This operation allows an Index Insertion Into more than one 
Index file. The WRITE operation mentioned earlier is used to 
physically insert the record into the data file and insert the key 
into one index file. If more than one index is being used* one 
INSERT operation must be performed for each additional index into 
which an insertion is to be made, when the WRITE operation 
performs the physical record insertion* a pointer is xept which 
contains the physical location of the newly inserted record in the 
data file. When the INSERT operation is performed* the specified 
key (with a pointer to the remembered physical location into the 
data file) is inserted into the specified index file. Since only 
one of these insertion memory pointers is kept for each program* 
one must make sure that all insertions necessary for a given 
record are made before performing the next WRITE to insert the 
next record. For example* the sequence to insert two records into 
two indices would be WRITE INSERT WRITE INSERT and not WRITE WRITE 
INSERT INSERT, The format of the INSERT statement is as follows* 

INSERT FIDECL* KEY 

where FIDECL is the name of the logical file declared for the 
index being used and KEY is the string variable in which from the 
formpointer through the logical length is contained the key to be 
inserted in the index. An IQ error is given if KEY is null or if 
the key specified already exists in the specified index file. 
Otherwise* the key is simply inserted into the index. Note that 
it is not necessary to prevent the program from being interrupted 
between the WRITE and INSERT operations since the pointer to the 
record which was inserted is kept for each program and even if 
another program inserted a record in the same file or index 
between the WRITE and INSERT of the program in question* all 
insertions would be performed correctly. 

7.5,12 DELETE 

This operation allows a record to be physically deleted from 
a data file and for its key to be deleted from the specified 
index. The DELETE instruction is also used to delete keys from 
other indices which can index the data file. For example* 

DELETE FIDECL*KEY 

will delete the record specified by the key (whose value lies from 
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the formpointer through the logical length In the variable KEY) In 
the data file specified by the Index file specified by the logical 
file whose declaration name Is FIDECL. The record Is physically 
deleted by having all of Its characters up through the logical end 
of record mark (015 character) overstored with 032 control 
characters. The 032 character does not appear to exist when the 
record is read using the DATABUS 1100 reaa mechanism or the 
REFORMAT utility read mechanism since when these mechanisms see 
such a character they simply bump the character pointer (moving on 
to the next physical record if running off the end of the current 
physical record) and try to fetch the next character. Therefore# 
when DATABUS 1100 performs physically sequential reads across 
records that have been physically deleted# the records do not 
appear to exist. The REFORMAT utility eliminates these 032 
characters to close up the deleted space in a file and to make the 
file readable by other DOS utility programs such as SORT, 

The DELETE operation will not try to overstore the record 
being deleted with 032 characters if the first character already 
contains a 032 character. This allows the DELETE operation to be 
used to delete the key entries from all index files which index 
the given data file. For example# 

DELETE FIDECLi #KEY 1 

DELETE FIDECL2,KEY2 

DELETE FIDECL3#KEY3 

would be used to delete the record and keys out of the three 
indicies which pointed to that record. The first DELETE would 
actually overstore the logical record with 032 characters and 
delete the key from the index file specified by the logical file 
whose declaration name was FIDECLI, The other two DELETE 
operations would only remove the keys from their respective Index 
files since It would be noted that the logical record already 
contained a 032 character In its first position, 

7,5,13 wEOF 

Standard DOS end of file marks (000 000 000 000 000 000 003) 
in the first seven character positions of a physical record) can 
be written in DATABUS 1100, WEQF does not change the physical 
record or character pointers for the given logical file. For 
example# 

wEGF FDECL # RN 

will write an end of file mark in physical record RN while 


CHAPTER 7, INPUT/UUTPUT INSTRUCTIONS 


7-35 



WEOF FDECL,SEQ 

will write an end of file mark in the next physical record after 
the current physical record pointer. Note that the WEQF operation 
may be performed upon logical records which have been declared 
either FILE or IFILE but that the record is always specified using 
a numeric variable for the record number. This implies that one 
cannot write an end of file mark using an indexed access. 
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Chapter 8. p r o u r a m g e t r a t i u n 


8,1 Preparing Source Files 


Files containing the source language for DATAbUS 1100 
programs are preparer using the general purpose editor running 
under D 03 ,C and whose use is covered in a separate document. The 
editor tab stops may be set to be suitable for key in of DAT ABUS 
1100 programs by using the :T command and sett inn two taps* one at 
10 and the other at d 0 , 

6,2 Compiling Source Files 

DATAbUS 1100 programs are compiled using the DATAbUS 1100 
compiler running under DUS,C, The DATAbUS 1100 compiler is 
parameterized in the following manner: 

PHI ICMP <source> l *<object>J t*<print>J 1 ! <L><C ><F ><R><X ><!)>3 

File Specifications: 

)he compiler may be parameter!zee with up to three file 
specifications. These file specifications follow the standard DOS 
conventions. Refer to the DOS User's Guide tor further 
information concerning DUS file specifications, A bad drive 
specification for any of the files will result in the error 
message; 

HAD DEVICE SPECIFICATION 

If any of the file specifications are identical* the message; 

SOURCE AND OBJECT FILES THE SAME or 
SOURCE AND print FILES THE' SAME or 
UBJEC 1 AuP PRINT FILES ThE SAME 

will be gisp1 ayeu, 

1 h e source file contains the D A T A BuS 110 U program text 
created with the editor. This tile must always be specified. If 
no extension is given on the source tile name* the extension TXT 
is assumed. If tnr source file name is not supplied* the message; 
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will ue displayed. If the source file name does not exist in the 
Of)S directory* the message? 

iJU SUCH iMAMt, 

will displayed. It no drive is specified* all drives beginning 
with drive 0 will be searched for the source file, 

Ihe object file will contain the object code generated by the 
compiler from the specified source code* If the name of the 
object code file is not given* the name of the source code file 
with an extension of D6C will be used for the name of the object 
code file. Note that DATABUS 1100 can run only those files with 
extension DBC, If the source code file is specified without a 
drive number* the compiler will search all drives for the name 
given. If the object code file name (with the extension specified 
or the assumed extension DBC) is not found on any drive* the 
object code file is placed on the same drive as the source code 
file. If the object code file is found* it is killed and 
re-opened on the same drive it was found on to assure a maximally 
contiguous file space is available, 

Tne print file specification is also optional. If it is 
given* any print output requested will be written in this file (in 
the standard GLPIT format) instead of being printed on the local 
printer. Top of form will be indicated by the character f \* in 
column one of the print line. Otherwise* column one is always 
blank and the line starts with column two (this is the standard 
COBOL and FORTRAN print file format). 

If no name is given for the print file specification* the 
source file name will be assumed* If no extension is given* an 
extension of PRT will be assumed. However* if the print file is 
to be read under DATABUS 1100 it must have an extension of TXT 
since all DATABUS 1100 data files must have that extension. If no 
drive number is specified* the print file will be placed on the 
same drive as the source file, A print file may be specified 
simply by keying in a comma after the object file specification 
or* if no object file is specified* by keying in two commas after 
the source file specification. Note* however* that the extension 
assumed in this case will be PR1, 
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Output Parameters; 


These parameters allow the user to specify what type of 
output is wanted in addition to the object file* If a print file 
is specified# any print output is written in that file instead of 
being sent to the printer, if the semicolon but no parameters are 
specified# the only output is the object file (if in this case a 
print file was specified it would be null). 

The UATAbuS 1100 compiler can output to either a local or 
servo printer. The compiler is self*confiquring in this respect 
and will output to whichever printer it finds connected to the 
system I/O Dus* Since the compiler Iooks first for a servo 
printer# output will be to the servo printer if both a local and 
servo printer are addressable by the system. 

Any source code lines which have errors are displayed on the 
screen during pass II# with the appropriate error flag. 
Additionally# the compiler displays at the lower left corner of 
the screen the current line number being compiled# for every l()th 
line, bvery 10th line is indicated because displaying the line 
number for every line would slow down the compiler* No numbers 
will be displayed if the program is fewer than 10 lines long, 
lhis line number display is cleared when processing of included 
files begins or ends# so the line number display will r I ink off 
momentarily during compilation of source files using included 
files, 

lo specify output options# a semicolon plus one or more of 
the following should be placed after tno last file specification; 

t A listing of the compilation results is printed. bach line 
of source code is numbered and the object code location 
counter value for the first byte of code generated for the 
line is listed to tne left of each source code line. A 
appearing as the first character of a line causes a new print 
page to be started. The rest of the line following the f may 
be used as a comment line, A appearing as the first 

character of a line causes a new print page to be started if 
the current line is within two inches of the bottom of the 
current page, A good way to improve the readability of a 
program is to begin each section or routine *it h a comment 
before* which a line is entered which contains a star in its 
first column. This will ma*e sure ..the ■ comment appears on the 
same page as the first lines of the code to wnich it is 
at t ached. 
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C A listing of the compilation results is printed and the 

generated object code is listed to the left of the source 
code. Printing the object code usually makes the listing 
about twice as long, if this option is given* the L option 
is implied and need not also be given, 

I I he source code for lines with errors will be printed in 

addition to being displayed on the screen. This parameter 
has no meaning if the L or C options are given since listings 
produced under those options will include error flags anyway, 

R The line numbers for referenced labels in an operand string 

will be printed at the right margin of the listing. The line 
number is tne line on which the Referenced label was defined. 
If the L# C# or £ option is not also given# this option has 
no effect. This option may be given instead <?f or in 
addition to the X option, Ihe R option is especially 
convenient with GOTO or CALL instructions in following the 
logic path of a complex set of code. Note that for the R 
option to be effective# a printer with at least ISO column 
printing capability must be used, 

x A cross-reference listing is printed at the end of the 

compilation. There will actually be two cross-references: 
one for the data labels and one tor the executable labels, 
£ach cross-reference is sorted alphabetically. The data or 
executable label is given preceded by the octal location 
where the label was defined and followed by a list of all 
line numbers in which the item was defined or referenced. An 
asterisk flags those line numbers which are definitions. The 
SORT utility is called by the compiler to do the actual 
reference sorting# and the messages displayed on the screen 
will be appropriate to the progress of the sort, A 
cross-reference may be obtained regardless of whether a 
listing was requested', 

D A copy of the source code is displayed on the screen during 
the compi1 ation, 

It a listing has been requested# the compiler will ask: 

hlaiHng: 

Ihis may be /0 characters long and is printed at the top of each 
pane. Indicating the time and date of the listinq is helpful in 
keeping listings in chronological order. The source file name is 
automatically listed to the left of the heading. 
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I n i s is the simplest compilation specification. The source 
code found in file PROGRAM/TXT would be compiled with the object 
code placed in file PRQGRAfo/DBC• no other output would be given 
except for errors displayed on the screen. 

Obi h»p CMtCK*c.riLCK«\j'u;c:x 

The source code in CMLCK/TxT would oe compiled and the object 
code placed in CHECKNtj/D&C • A listing would be printed on the 
printer and consist of t no source and object code with a data and 
executable label cross-reference at the end, 

UP 1 lOIP F iLfc ; D K 0 * * r IL t L 3 T / T X T : OR 1 ? L X 

The source code in FlLE/TxT on drive 0 would be compiled and 
the object code placed in FlLl/DdC on drive 0, A copy of the 
source code and a data and label cross-reference will be written 
in FILttSl/IXT on drive 1, 

The compiler may be stooped temporarily by depressing the 
DISPLAY key, Ine DISPLAY light will oe turned on and execution 
will not be resumed until the DISPLAY key is depressed again (the 
DISPLAY light will then be turned off). Compilation may be 
aborted at any time before the cross-reference sort is begun by 
depressing the KEYBOARD key. If the compilation is aborted in 
this manner the object file ana the dictionary file are deleted* 
as are tne reference file and the print file if a cross-reference 
list or print file was specified. 

If a compiler print option CL* C* L* or X) is selected* the 
ormt is not being sent to a print file* ana there are no printers 
attached to the diskette 1100* the compiler will progress until 
the first print buffer is lull* and wait at that point for a 
printer to oecome ready. This implies that if there is no printer 
at all attached* the compiler will enter a perpetual wait loop. 

A.i Compilation directives 

Two ji rect i ves are available in the L>A I AtJUS 1100 compiler as 
mentioned in Section iJne is the LdU statement which allows a 

label to be assigned a decimal numeric value from 1 through «?4 9, 

F o r o x a m p 1 e : 
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LM t'QU 3 

A label which is defined in this manner may be used as tab values 
in disk I/O statements and as cursor positions in KEVIN and 
DISPLAY statements. This is particularly useful when one defines 
a data base record format. If all item positions within the 
record are defined using the EQU directive* then changes in item 
positions can be achieved by simply changing the ore directive 
value* If the tQU were not used* the user would have to hunt 
through all programs to change all disk l/ll statements to change 
the item position in the record. 

The second compiler directive is INCLUDE Cthe compiler also 
accepts a mnemonic of INC) which allows another text file to be 
included at that point as if the lines actually existed in the 
main file. For example: 

INC RECDEFS 

will cause the file RECDEFS/TXT to be scanned as if all of its 
lines existed in the place of the INCLUDE line. The assumed 
extension on included files is TXT but may be specified to be any 
extension. If no drive is specified# all drives starting with 
drive zero will be scanned for the file* Inclusions may be nested 
up to four deep# with a maximum of lb included files* The INCLUDE 
directive can be used to include a file containing the tQU 
directives and data variable definitions which define the format 
of a data base file record* This can prevent the programmer from 
having to keyin the data area (and common data area) definitions 
over and over for each program to use a certain data file. It 
also will make it much easier to update the data area definition 
since the programmer would have simply to update the one text file 
and then compile all the programs (which would induce the 
modified definition file) to update all programs to the new data 
area definition, 

8.4 Compilation diagnostics 

The compiler prints and displays diagnostic messages on the 
listing to help the programmer debug syntatieal errors in his 
code. These messages take the form of an error code letter at the 
left of the listing and an asterisk under the line at the position 
of the scanning pointer when the error occurred* The letters are 
F. for an expression error (a generalized syntactical error)* U for 
an undefined variable or label* and I for an undefined 
instruction* In the case of l errors a number is given on the 
line with the asterisk pointing out the error position in the 
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source line. This number refers to the list of detailed error 
explanations in Appendix C of this document. If any of these 
flaps appear# the compiler will flag the program as being 
non-executable. If the faulty program vs then executed# it will 
return control to the M A Si E R p r o g rarn or to OUS.C, 

The UATABUS 1100 system uses the DOS logical file zero for 
reading and writing all data to and from the disk. This implies 
that a segment boundary may not be crossed d y the obj ec t code 
during a KLA!) or nRITE statement (since fetching the statement 
also involves disk I/O), For this reason# the DATABUS 1100 
compiler will insert a IAbPAUL instruction if it detects a READ or 
vRIIt statement crossing a segment boundary, Normally# this is of 
no particular concern to the user# however# programs using TARPAGE 
ana aoing extensive optimization should be aware that this may 
occur, 

6,b Disk space requirements 

The DAlABUS 1100 compiler maintains its label dictionary on 
disk in the file named DSCDICT/SYS, Moreover# this file is always 
placed on tne same drive as the output object file because it is 
reasonably certain that that drive will not be write protected. 

Tor these reasons# there may not be more than 2 b 4 files named (25 b 
if the object file name already exists) on the disk onto which the 
object file is to be written. 

Furtner# if a cross reference is desired# there must be four 
more file name places available among the drives on-line. One of 
the file names that will be in use during tne compilation is 
DSCREE/SYS (the file onto which the compiler writes information 
apout each label reference), Three files will be generated by 
Sun 1 : *SORTMRG/6YS# *SUKTKEY/SY5# and DSCREF T/SYS, The first of 
the two files by SURT are scratch files# and the third is a 
tag-file pointing back into the DSCRLF/SYS file. At normal 
completion of the compilation# all files mentioned above (except 
the output object file) will have been deleted and the file space 
again made available to the user. 
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T hi s chapter discusses loading the DATABUS iiOO System on 
Diskette under DUS.C and the use of the DaTABUS 1100 Interpreter. 
The use of the DATABUS 1100 Compiler is discussed in the previous 
chapter, 

9.1 System Loading 

The DATABUS 1100 System is available on either Cassette or 
Diskette media. The DUS files furnished with DATABUS 1100 are the 
Interpreter# DB11/CMD and Dbll/OVl thru Dnli/Ovb# the Compiler# 
DbllCMP/CMD and DBlICMP/GV0 thru DBllCMp/uvP# DBBACK/CMl)# and 
ROLLOUT/SYS. 

9.1.1 Loading From Cassette 

The DAI ABUS 1100 compiler ana interpreter system programs are 
c o n t a i n e d on one cassette. The cassette is in the DMT ( D11S 
Multiple Hie) format which includes a directory of tne tiles on 
the tape. To load the DaTABUS 1100 files to Diskette# keym: 

MIN # A 


The MIN (Multiple IN) program will tie activated and will 
display the date of creation of the tape# the tile names in the 
tape directory# and each file name as the file is being loaded. 

If the file already exists on the diskette# the MIN program will 
ask if it is to be overstored, The operator can decide to 
overstore the file or can tell it not to overstore the file in 
which case MIN will allow the file to oe storeo under a different 
name. Consult the DOS USfcK'S GUIDE for further information on its 
ope rat ion. 


1 ne DA TABUS IU'0 interpreter system tiles can be re-named to 
any name desired as Iona as tne command tile ana all the overlays 
nave the same name* tor example# it pH 1 \ /{.<■•[) was re-named Ob/CM)# 
then UBli/UVl thru LBil/UvB would have to tie named Db/Uvl. thru 
uh/tjvB. 
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9.1.2 Loading from Diskette 

If the DATABUS 1100 System is obtained on Diskette media# 
additional copies of the saystem should be generated for backup 
purposes using the DOS,C commands# OUSGfcA# COPY# and/or BACKUP, 

9.2 Program Execution 

If the DATABUS 1100 Interpreter is named DBlt/CMD then a 
DAIABUS 1100 program can be executed by entering: 

DB11 PRUGA 

The DATABUS program compiled and filed under the name PROGA/DBC 
will begin execution. This program will continue executing until 
an irrecoverab1e error is detected or until a STUP instruction is 
executed. At this time system control will return to DQS,C, 

The general form for the DATABUS 1100 interpreter command is: 

DB11 l<object>] t#<parameters>3 

If a DATABUS 1100 program is not specified# the Interpreter will 
search for a special program cataloged as MASTER/DBC and begin 
executing this program: 

DB 11 

The master program will continue execution until a STOP is 
executed# at which time control will return to DGS,C* In any 
case# the very first program to begin execution under Dbil is 
considered to be the master program# regardless of what name it 
has , 

The master program can cause another DATABUS 1190 program to 
begin execution through the use of the CHAIN instruction. In this 
case# when this new program executes a STOP instruction# control 
is transferred to the start of the master program instead of to 
DlJS, C • 

1 wo parameters are available for setting the Databus internal 
clock. These are the clock set parameter and the aate set 
parameter, Ihe clock set parameter has the form: 

L h h : m m ; s s 
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where h n ; m m ; s s is the time used on a d 9 hour clock, hot e that 
Doth Dun and :ss are optional* ana if omitted are assumed zero. 
Hence* in order to set the time to 19;c?b* the parameter would be 
C • the date set parameter has the form; 


D y y • d a d 

where y y is the last; two digits of the year ( 1 b thru 99) and ddd 
is the Julian date, tor example* March 5* 1977 would ue specified 
as 

OH,Obi 
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appendix a, INSTRUCTION SUMMARY 


syntactic definitions 

The result of any arithmetic or string 
operation; OvfcR, LESS# EQUAL., ZERO, or 
EOS (EQUAL ana Zfc.hu are two name s for the 
same condition). 

Any string of printing ASCII characters. 

The occurrence of a program trap; PARITY, 
RANGE, FORMAT, C K AIL, or JU. 

A list of variables or controls appearing 
in an input/output instruction. 

Any combination of letters (A~Z ) ana 
aigits (0-9) starting with a letter (only 
the first eight characters are used), 

A name assigned to a statement, 

A name assigned to a statement defining a 
numeric string variable. 

A name assigned to an operand defining a 
numeric string variable or an immediate 
numeric, value, 

nlit An immediate numeric value, 

svar A name assigned to a statement defining a 

character string variable, 

sval A name assigned to an operand defining a 

character string variable or a -quoted 
alphanumeric character, 

slit An immediate character string, enclosed 

in aouo1e quot os ( " ) , 

nI is t A series of contiguous numeric variables. 


condition 

character string 
event 

list 

name 

label 

nvar 

n va 1 
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slist A series of contiguous string variables. 

rn A positive recoro number ( >= 0) used to 

randomly READ or ✓JRITE on a file, 

seq A negative number ( < 0) used to READ or 

WRITE on a file sequential^, 

key A non-null string used as a key to 

indexed accesses, 

null A null string used as a key to an indexed 

read. 


F OK THt FOLLOWING SUMMARY; 

Items enclosed in brackets t 1 are optional. 

Items separateo by the | symbol are mutually exclusive (one 
or the other but not both must be used). 


COMPILER DIRECTIVES 


1 abe 1 

EQU 

10 

1 abe 1 

EQUATE 

100 


INC 

fi1ename l/ext) 


INCLUDE 

fi1ename [/ex13 

FILE 

DECLARATIONS 

label 

FILE 


1 abe 1 

IF 1LE 


DATA 

DEFINITIONS 

1 abe 1 

FORM 

n, m 

1 abe 1 

FORM 

"Vbb.d'S" 

1 aoe 1 

DIM 

n 

l abe 1 

INI T 

"character string" 

1 abe 1 

FORM 

*n, m 

label 

FORM 

*"Ubb.di" 

label 

l) 1 M 

*n 

1 abe 1 

INI T 

*"CHARACTLh STRING 
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CUU 1 ROL 


GUI U 

(label ) 



GUI U 

( 1 a D e 1 ) 

IF 

(conn 1 t ion) 

(> ill! 1 

(label) 

T F 
* * 

; f j t ( c o n c3 i t 

h N A iW C H 

Invar) 

OF 

(label list) 

CALL 

(label) 



CALL 

(1abe 1 ) 

IF 

(conaition) 

call 

R h T U R N 

( label ) 

IF 

! * 0 T (conoit 

R L 1 U k N 

IP (c o ndit 

ion) 

r< t I UH U 

IF nUT 

(condition) 

b TUP 




STOP 

IF (condition) 

S T U P 

IF OUT 

(connition) 

C H A 1 n 

(s v a T) 



L H A I % 

(si it) 



T RAP 

(1abe 1 ) 

IF 

(event ) 

fRAPCLN 

(event) 



PULLUUI 

(svar) 



ROLLOUT 

(slit) 



C H A H a C 11 R S T R I N i) 

■ hANDLl 

uG 


MA | CH 

( svar ) 

TO 

(svar) 

MATCH 

(slit) 

TO 

(svar) 

MUVt 

( svar ) 

TO 

( svar ) 

MOVE 

(si it) 

TO 

(svar) 

MOVE 

(svar) 

T 0 

(nvar) 

MOVE 

( n 1 it) 

TO 

(nvar) 

H(3Vb 

(n v a r ) 

U) 

(svar) 

APPEND 

(svar) 

TO 

(svar) 

A P P E N 0 

(slit) 

TU ■ 

(svar) 

A P P fc. 0 1) 

(nvar) 

TO 

(svar) 

CMUVE 

( s v a 1 .) 

TO 

(svar) 

COAT CH 

( s v a 1 ) 

TU 

(aval ) 

dump 

(svar) 



ri UiAp 

(svar) 

BY 

( n 1 i t ) 

K'LSF. 1 

(svar) 

TU 

( s va 1 ) 

ROSE r 

(svar) 

TO 

(nvar) 

'< t S t T 

(svar) 



t Ml)St 1 

(svar) 



Lt i:bt 1 

(svar) 



L LEA 

( s v a r ) 



L X I L R 0 

(svar) 



L.UAU 

(svar) 

F HO 

H (nvar) u b 

S 1 U k b 

(svar) 

JM 

U (nvar) (! b 
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STORE 

(slit) 

INTO (nvar) 

OF 

(s1ist) 


CLOCK 

TIME TO 

(svar) 





CLUCK 

DAY TO 

(svar) 





CLOCK 

YEAR TO 

(s var) 





1 Y PE 

(svar) 






St ARCH 

(nvar) 

IN (n1 1st) 

10 

(nvar) 

NlTH 

(nvar) 

SEARCH 

(svar) 

IN (si 1st) 

TO 

(nvar) 

USING 

(nvar) 

REPLACE 

(svar) 

IN (svar) 





REP 

(slit) 

IN (svar) 






ARITHMETIC 


ADD 

(nvar) TO (nvar) 

ADD 

(nH t) TO (nvar) 

SUB 

(nvar) FROM (nvar) 

SUB 

(n1 it) FROM (nvar) 

SUBTRACT 

Cn1 it Invar) FROM (nvar) 

mult 

(nvar) BY (nvar) 

MULT 

Cn1 it) BY (nvar) 

multiply 

(nlit1nvar) BY (nvar) 

UIV 

(nvar) INTO (nvar) 

DIV 

(nlit) INTO (nvar) 

DIVIDE 

(nlitlnvar) INTO (nvar) 

MOVE 

(nvar) To (nvar) 

MOVE 

(nlit) tU (nvar) 

compare 

(nvar) TO (nvar) 

COMPARE 

(nlit) TO (nvar) 

LOAD 

(nvar) FROM (nvar) OF (nlist) 

STORE 

(nvar) INTO (nvar) OF (nlist) 

STURE 

(nlit) INTO (nvar) OR (nlist) 

CHECKlI 

(svar) BY (svar) 

CKU 

(svar) BY (slit) 

CHECK 10 

(svar) BY (svar) 

CK10 

(svar) BY (slit) 

INPUT/OUTPUT 

KEYlN 

(list) 

DISPLAY 

(list) 

BEEP 

PRINT 

(list) 

PREPARE 

(1 1 1e ) t (svar1s1 it) 

PREP 

(t i 1 e) t (s v a r 1 s 1 i t) 

OPE J 

(fi1e1ifi1e)f(svar|s1it ) 

CLOSE 

(filelifile) 


vnRIIE (filelifile)rrniseqlkeyUi(list)) l ?)) 

aR 1T A B tfile)rrnlseq;CMst)t;] 
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v*i E U F 

UPDATE 

HEAD 

READK3 

DELETE 

I D 3 E H T 


Cfi1elitile)#rn|seq 
(l f \ ] e) U l (1 i s t) ] ini 

11 1 1e I ifiTeJ#rn|seq|keyinul i i#I (I i st l?J )) 
t i f i T e) J (; j ( ) i s t (r J ) ) 

(ifile)f(svar) 

(ifi!e)*(svdp) 


l q 1 it ■, j (. i 1 


qu 
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CONTROL USED IN PUN Cl IUN 


*p<m>;<n> 

kD 

Causes the cursor to oe positioned 
horizontal 1y and vertically to the column 
ana line indicated by the numbers <m> 
(horizontal 1-30) and <n> (vertical 1-1?) 
inese numtiers may either be literals or 
numeric variables# 


KDP 

Causes the cursor or printer to be 
positioned in Column 1 of the next line* 

* t L 

K D 

Causes tne line to be erased from the 
current cursor position. 

* EK 

K 0 

Causes tne screen to be erased from the 
current cursor position to the end of the 
line. 

*t 3 

KD 

Causes the cursor to ue positioned at 
horizontal position 1 of the top row of 
the display and the entire display to be 
erased * 

* L u f E 

K 

Prevents tne echo to the display during 
input operations. 


* t_0u K Causes the echo dun no input operations 

* + KDP Turn on Key in Continuous for KEY.In or 

space after logical length suppression for 
DISPLAY and PRINT, 

a + vV Turn on space compression during WRITE* 

a- kDP Turn off hey in Continuous (turned off at . 

the end of tne statement.) or the space 
after logical length suppression, 

/, lum off space compression during ttRJTfc* 

a< n> P Causes a horizontal tab on the printer to 

tne column indicated by the nunder <n>. 


APPLui< l X 
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•vio action occurs if the carriage is past 
the column indicated by <n>. 


★ <n> 

*<nvar> 

RW 

lab specification for READ or aRITAB 
operations; the logical file pointers are 
moved to that character position relative 
to the current physical record. 

• 

* 

KDP 

Suppress a new line function when 
occurring at the end of a list* 

» 

KDP 

Any characters appearing between quotes 
are displayed or printed when encountered, 
Note that to include the character (") in 
the string* the forcing character (#) must 
be used, For example* "Jack said* 
#"Datapoint is greatl#"" would print what 


P 

Causes the printer to be positioned to the 
top of form. 

*L 

KDP 

Causes a linefeed to be displayed or 
printed. 

*C 

KDP 

Causes a carriage return to be displayed 
or printed. 

* T 

K 

Time out after d seconds for KEYIfv 
st at ement, 

*w 

KD 

Pause for one second. 

*JL 

K 

Left-justify numeric variable and 
zero»fill at right if there is no decimal 
point. 

* JK 

K 

Right-Justifv string variable and 
b1ank-fill at left. 


KDPW 

Left zero-fill string variable. 

*i)E 

K 

Kestrict string input to digits (0-9) 
only. 

* 1 T 

K 

Turn-on Text Mode (invert alphabetic 
i nput ) , 

* 1 IV 

K 

Turn-off Text Mode, 
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A (MR 


Mi Convert numeric variable to 

"Minus-’overpunch" format* 
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APPENDIX C, COMPILER ERKhR CUOtS 


hen an fc. code is given by the compiler at the left of a line 
of code containing an error; the very next line will contain an 
asterisk followed by an t code number ana another asterisk under 
the error line at the position of tne scanning pointer when the 
error was detected* The E code number refers to the 'number in the 
left column of the following table ana the corresponding error 
explination in the right column. 


00001 The first operand of a CRATCH or 0;UVE instruction was not 
an octal number* a quoted character# or a string variable, 

000Ur? The second operand of a OuATCH instruction was not an octal 
number# a quoted character# or a string variable, 

OOOOi The second operand of a MATCH or Appf nq instruction was not 
a string variable* 

00U04 The first operand of a MAiCM or APPfc.b!> instruction was not 
a string variable or a literal. 

0000b The first operand of a Rfc.SkT instruction was not a string 
variable, 

OOOOo The second operand of a RfcSfcl instruction was followed by a 
character that was not a space# implying that there were 
other operands following the second operand, RESET may 
have only one or two operands, 

00007 The first operand of a BUMP instruction was not a string 
v a r i a o 1 e * 

000 1 0 The second operand of a bu'-P instruction was not terminated 
py a space# or had an absolute value of greater than 127* 

0 0 01 1 (he operand of a C h a J N or rULLUU I instruction was not a 
string variable or a literal* 

000 IP The first operand of a 5 JUNE instruction *as not a string 

variable or numeric variable or literal. The first operand 
of a LEAD instruction was not a string variable or numeric 
va riab1e, 
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OOOli The second operand of a STORE or LOAD instruction was not a 
numeric variable* 

00014 The second bperand of a STORE: or LOAD instruction was not 
followed by either a space or a comma* 

0001b One of the third thru Nth operands of a STORE or LOAD 
instruction was not the same data type as the first 
operand. If the first operand is a string or numeric 
variable# then all operands after and including the third 
operand must be a string or numeric variable# respectively* 

00016 The second operand of a HOVE instruction was not a string 
variable or a numeric variable# 

0001/ The second operand of a MOVE instruction was not a strinq 
variable or a numeric variable, 

0 0 0#?0 The first operand of a MOVE instruction was not a string 
variable or a numeric variable or a literal, 

00021 The second operand of a COMPARE# ADD# SUBTRACT# MULTIPLY# 
or DIVIDE instruction was not a numeric variable. 

00022 The second operand of a CMATCH# CMOVE# MATCH. APPEND# 

CHAIN# ROLLOUT# COMPARE# ADD# SUBTRACT # MULTIPLY# or DIVIDE 
instruction was not followed by a space (indicating no more 
operands follow), 

00023 The first operand pt a COMPARE# ADD# SUBTRACT# MULTIPLY# or 
DIVIDE instruction was not a numeric variable or a literal, 

0o024 The first operand of an instruction which may be followed 

by a comma or a preposition was not immediately followed by 
a comma or a space. If a comma follows the operand a 
preposition is not looked for. If a space does follow the 
operand then a preposition must be there, 

0002b The first operand of a GOTO# CmlL# or TRAP instruction was 
not followed by a space, 

0u026 The first operand of a TRAP instruction was not followed by 
" IF ", 

0 0 02 7 The conditional operand (, IMjT) EOS# EUUAl. # 2ERU# etc,) of a 
buiO# CALL# or 1RAP instruction was not followed by a 
space. 
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uuOiO The conditional operand of a GOT t j or CALL instruction was 
not tMUTJ CDS, EUUAL, ZERO, LESS, or OVER; or the 
conditional operand of a TRAP instruction was not PARITY, 
RANGE, FORMAT, CFAIL, or 10, 

u P 0 51 1 he first operand of the TRAPCLR instruction was not 
followed oy a space, 

LM.i().$2 1 he first operand of the TRAPCLK instruction -as not 

PARI IY, R ArtGF i FORMA], C F A U , or 10, 

OOOii An operand in a KEYIN or DISPLAY instruction was not a 
string variable or a numeric variable. It was an EUIJ, 

FILE, or I FILE variable, 

0005A A control code (letter or letters following an asterisk) in 
a KEYIN or DISPLAY instruction was not *C, *1, *n, *T, *R, 
*P , *EL, *EF, * E S , * nf *EON, or * EOF F , 

0005b A variable <n> in the *P<n>;<n> control coae of a KEYIN or 
DISPLAY instruction was not a number (did not have a first 
character of 0*9) nora numeric variable, 

00056 A variable <n> in the *P<n>;<n> control code of a KFYIN or 
DISPLAY instruction was a numeric literal with a value for 
the first (horizontal position) <n> that was not I s< <n> 

-< 60# or with a value for the second (vertical position) 
<n> that was not 1 =< <n> =< 12, 

00 05 7 A literal in a KEYIfv or DISPLAY instruction was not 

followed by a comma, space, semicolon, or full colon, 

00090 (he last character in the operand string of a KEY In, 

DISPLAY, PRINT, READ, 'ARIFE, or wR'llAbv instruction was not 
a soace, colon, or semicolon, 

00091 Ihe end*of*Hne was encountered before an operand string 
terminator was encountered for a KEY IN# DISPLAY, PRINT, 
READ, wRITEr v'-RIT Ab, a EOF, RE ADK S, OPDATF, U PEN, PREPARE, 

1N SENT, or DELETE instruction, or 

The character following t. hr? first <■ n > in the * P < n >;< n> 
control code of a ht Y I N or 0 I SPLAY instruction was not a 
colon, or 

A guo t. eo string or octal number was specified in the 
operand string of a HL-U) instruction. 
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0004c! An EUUATE* FIL tr or IFILE name was specified in the operand 
list of a PRINT instruction. 

00043 A character following an asterisk indicating a control code 
in a PRINT instruction was not +# •# L# F# C# N , or a 
number 0-9, 

00049 The first operand of a READ# WRITE# WR17A8# or AEOF 
instruction was not a Flit or IFILE name. 

0004S jhe character following the first operand of a READ# WRITE# 
iv RITAB# or wEUF instruction was not a comma. 

00046 The second operand of a READ# WRITE# ARITA6# or WEUF 

instruction having an IFILE name as the first operand was 
not a string variable name nor a numeric variable name. 

0004/ The second operand of a READ# WRITE# aRITAB# or WEGF 

instruction having a FlLfc name as the first operand was not 
a numeric variable. 

OOObO The character following the first operand of a READKS 

instruction or the second operand of a READ instruction was 
not a semicolon, 

uOObl Ihe character following the first operand of an UPDATE 

instruction or the second operand of a WRITE instruction 
was not a space or semicolon. 

OOObi? An operand in the operand string of a RtAD or READKS 
instruction was not a tab (*<number> or *<nvar> or 
*<EQUname>) nor numeric variable nor string variable# or 

An operand in the operand string of a WRITE or UPDATE 
instruction was not a space compression control (*♦ or *-) 
or a quoted string or numeric variable or string variable# 
or 

An operand in the operand string of a Wf'ITAB or UPDATE 
instruction was not a tab (*<number> or *<EGUname>) or 
space compression control (*+ or *-) or quoted string or 
numeric variable or string varible, 

0U0S3 A tab operand (*<number> or *<EUUname> or *<nvar>) was used 
in a READ instruction that had an IFILE name as operand one 
and an NVAR name as operand two. 
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0 0 0 b 4 The character following the * con t; ro 1 - i nd i cat o r character 

in a ft R17 E instruction was not a + or , The compiler will 
recognize only the *+ or * - control for the ftRITt 
instruction# use the ftkIJAB instruction to use tab control 
(*<number> or *<nvar> or yUname>) for output to a disk 
file, Tor an 1nriex-Seqgent i a 1 tile# to use tab control to 
update a record in the file# use the UPUAH instruction. 

OOUbb The operand following an * contro1 -indicator character was 
a quoted item, Numeric literals may be used but they may 
not be enclosed in qoudI e^quote ( H ) symbols. Numeric 
literals# numeric variable names# or equated names may be 
used to specify tab values in KEY In# DISPLAY# CONSOLE. # 

READ# ftRIT AB # RE ADKS # or UP 0 ATt ins t ruc tions • 

0 0 0 S 6 The operand following an * control“indicator character was 
not an unquoted numeric literal# a numeric variable name# 
or an equated name, 

0 0 Ob 7 lhe first operand of a KEADKS or UPDATE instruction was not 
an IFILfc name. 

0 0 06 0 A t ad in a READ# ft R1T A B # RE4DK3# or UPDAIE instruction was 
greater than 249. 

00061 A tab in a READ# ftRITAB# REAOKS# or UPDATE instruction was 
zero. Note that if the value of an EQU'd tab is 
incorrectly specified the compiler generates a value of 
zero for the tab# and each use of that tab will generate 
this error, 

00062 A character following an operand in the operand string of a 
READ# ftRIT E# ftRI TAb# R E A D K S # or U P DATE instruction was not 
a space# comma# semicolon# or colon. If the instruction is 
a *,K I l AH or UPDATE instruction a semicolon is assumed, 

0 0 063 The character following the second ope rand of a ftEOT 
instruction was not a space, 

00064 The character following the second operand of a ftRITAB 
instruction was not a semicolon. 

OhObb lhe first operand of an OPEN instruction was not a TILE or 
IP IL t name or the first ope rang of a PRE-PARK instruction 
was not a KILL name. 

00U66 lhe first operand of a PRt.PARE instruction was an IE HE 
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name, 


0 0 067 

000 /0 

0 0 0 71 

0007* 

00073 

00 0 74 

0007b 

0 0 0 7b 

0 0 0 / 7 

0 010 0 

0 0101 

0010* 

0 0 1 u 3 


There is no provision within the DATABUS 1109 INTERPRETER 
for the creation of an indexed-sequentia 1 file. The file 
must first exist and be indexed by means of the INDEX 
program before the file may be opened by the OPEN 
instruction and accessed# increased# or decreased by means 
of the READ# WRITE# WRITAB# wEUF# READKS, UPDATE# and 
DELETE instructions. 

The character following the first operand of an OPEN or 
PREPARE instruction was not a comma. 

The character following the second operand of an OPEN or 
PREPARE instruction was not a space, 

I he second operand of an OPEN or PREPARE instruction was 
not a string variable name or a literal. 

The end-of **1 i ne was encountered before a first operand was 
encountered in a CLOSE instruction, 

Ihe first operand of a CLOSE instruction was not a FILE or 
IFILE name, 

Ihe character following the operand of a CLOSE instruction 
was not a space, 

A character following an operand in a STORE# LOAD# or 
BRANCH instruction was not a comma# colon# or space. 

The first operand of a CLOCK instruction was not TIME# DAY 
or YEAR, 

A comma or the preposition TO was not used between the 
first and second operands of the CLOCK instruction, 

Ihe second operand of a CLOCK instruction was not a string 
variao1e• 

The character following the second operand of a CLUCK 
instruction was not a space. 

The first operand of an INSERT or DELETE instruction was 
not tin IFILE name. 

The character following the first operand of an INSERT or 
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u if l o 4 

y y i o s 

■ Hi i 06 

0 010 / 

o o n o 

o 0 1 1 1 

0 0 1 1 3 

0 0 1 1 4 

0 0 1 1'3 

0 011 6 

0 0 11 / 


LitLt.lt instruction was not a comma. 

The second operand of an InSEWF or DELETE instruction was 
not a string varied]e name, 

Ihe character following the sect no operand of an loSEHT or 
DELETE instruction was not a space. 

An alphabetic c n a r a c t e r string where a preposition should 
have been was not recognized as a preposition! HY* TO* OF* 
FkUM* or INTO* or 

A numeric literal was used but was not enclosea in double 
q u o t e M s y m b o 1 s , 

An tQUA 11 directive was given alter an execute a 1 e 
instruction was specified. 

An tQUA It directive was given but no label was specified, 

fhe first character of the operand of an LQUATE directive 
was not 1 thru 9, a first character of 0 implies an octal 
number which is not allowed in the EQUATE directive, 

1 he value specified for an tQUA It directive was not from 1 
thru , 

I he file specified in an 1 QLLuUE directive was not found on 

disk. 

The character after the first operand of a Lib instruction 
was not a space. 

The operand value of a Did instruction was greater than 
1 c 1 7 , 

For an IIvT T instruction or an instruction using a string 
literal; 


wo operand was found f or 

A character after a quote l strino was not comma v'< r space* 
o r 

Tne end-offline was encountered before the end inn quote of 
a quoted operand was encountered* or 
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00 12U 

0 0 121 

U U 1 ? d 

00124 

0 0 124 

0 0 1 2S 


Ihe end"of*line was encountered immediately a*ter a forcing 
cn;iracter » was aiven» or 

A character following a comma following a quoted string or 
an octal number was not a double-quote symool or a zero# or 

A quoted string of greater than 127 characters was 
specitied* 

For an 1N1T instruction or an instruction using a string 
literal; * 

Ihe character following the ending double-quote symbol of a 
quoted string was not a comma or a space* 

for an instruction using a string literal, tne literal was 
over 40 characters long* 

Ihe end-of-line was encountered before the first operand 
(data item length specification) was encountered for the 
1)1 instruction* 

Ihe end-of-line was encountered before the first operand 
(numeric data format specification) was encountered# or the 
numeric data was specified to be more than 2i characters 
long, for the FURM instruction. 

A closing double-quote symbol was not found for the operand 
(numeric data format specification) of a Hjrn instruction# 
or 

A numeric literal was used but was not enclosed in double 
quote (" ) symbols. 

For the operand (numeric data format specification) of a 
F* (J K M instruction or for a numeric literal one rand; 

Ihe following applies for the FUK^i instruction if a 
integer-decimal length was. specified* 

Ine character after the first numeric string (specifying 
the integer part length) was not a space or a decimal 
point# or 

Ihe character after the first numeric string was a decimal 
point Out no numeric string specifying the decimal part 
lenqtn was found. 
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The following applies if a quoted string was specified! 

Ih e r e were ^ore than t dI characters in the nutter 
specification^ or* 

Tnere were no digits specified# or 

I nere was a decimal point specified t-ur no digits followed 
it* or 

The numeric literal was not enclosed in douole quote (") 

S V <Vi Pols* 

) 

uuIpp for the i.) 1M # INI T # or F uP a instructions! the end-o f - H ne 
was encountered before an operand was encountered* 

00 iri / An operand was not a quoteo item, a numr>er, or a label* 

uuiiii T h t> second character after the opening noun I e*nuote symbol 
in the operand of a O'GVfc or CHAT CM instruction was not a 
double-quote symbol, 1 he forcinq. character does not apply 
in these two instructions because it is not necessary, 

00131 for an instruction using a literal# the character after the 
ending double-quote symbol was not a space or comma. 


0 0 1 5P 

An octal number 
range 0 through 

was specified 
05/ inclusive 

but the 

• 

number was not in the 

001 33 

Pest ricted 

error 

indicate o -- 

consult 

Systems 

t nqineer, 

0 '01 5 4 

Pestrictea 

error 

indicate u -- 

c o n s u 1 t 

Systems 

F n gine e r , 

0 u 1 5 b 

nestricted 

error 

indicated - - 

consult 

Systems 

tngineer, 

UO 1 36 

Kestricted 

error 

indicate q -- 

consult 

Systems 

t. ng i nee r , 

0 0 13/ 

Internal compiler error. 




0 0 1 4 0 

Postricted 

err o r 

indicate a - - 

c o n s u 1 t 

Systems 

f nnineer, 

0 u 3 4 1 

1h e operand of a Pi instruction was not an uno 
literal with a value of l through P0. 

u o t e c n u m e r i c 

U 0 1 4 r 

1 he operand 

o t a 

* Fuh instruction was 

n o t a n i\i 

V A K name. 

,i 0 1 4 

Pest net: e a 

error 

indicated - - 

consult 

o v s t o r? S 

1 noineer. 


AbPfcuplX I 


L I -A P i t, L p . t. K h U K L l! 1,‘ r ii 


t.-p 



0 0 t 4 4 
0 0 Hi) 
0 0146 
00 14/ 
0 0 1 ‘3 0 
0 0 161 
o 01b<? 
u 0 1 b 3 
U 0 1 b 4 
00 1 bb 


Restricted error indicated -• consult Systems Engineer 
restricted error indicated -- consult Systems Engineer 
CHECKiO, CrifcCK11 f REPLACfc operand 1 not a svar, 

CMG, CKllf REP operand P not a svar or slit* 

SEARCH operand 1 not svar or nvar, 

SEARCH operand £ not same type as operand 1* 

List length not nvar in SEARCH, 

Index not numeric in SEARCn, 
vRIlE control was not *MP, 

AHITt control was not *Zh* 
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If an event occurs and the trap corresponding to that event 
nas not been set/ the message: 

* EKHUH * LLLLL X * or 

* LHHUK * LLLLL X * w 

appears on the console display* The first form appears for all 
traps except 1/0 traps* In the event of an I/O trap/ a 
qualification letter is given where a "Q” is shown in the example 
(explained below under the H I0” trap)* The LLLLL is the current 
value of the program counter and the X is an error letter. In 
most, cases/ LLLLL Points to toe instruction following the one that 
caused the problem. However? in certain I/O errors? LLLLL will 
point after the list item where the problem occurred* The 
following error letters can appear! 

P - parity failure 

k - record number out of range 

f- - record format error 

C • chain failure 

I - I/O error 

B - illegal operation code 
U - call stack underflow or overflow 
A - interruptions already prevented 

Note that the last three items shown above cannot be trapped. The 
B error will only show up if somehow an invalid object file is 

executed or if the system is failing* The U error will happen if 

• 

the programmer forgets to perform a call or in some other fashion 
manages to execute a NETuKu instruction without a cor responding 
CALL having been previously executed/ or calls are nested more 
than eight levels deep# Ire A error will happen if a PI 
instruction is executed while, interrupts are currently prevented. 
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The events 
capitalized name 

parity 

RANGE 

KURMAT 


CP Alt 

ID 


that may be trapped are shown below. The 
is the one used in the TRAP statement, 

- disk CRC error during READ or disk CRC error 
during write verification (the DOS retries an 
operation up to b times to get a good CRC 
before giving up and causing this event), 

• record number out of range Can access was 
made that was off the physical end of the filer 
a record was read which was never written* or a 
DRITAB was used on record which was never 
written) 

- oata being read into a numeric variable was 
not all digits and decimal point and minus 
sign* or decimal point in input does not agree 
with the decimal point in FORM* or data from 
disk has a negative multi ••punch but no room for 
a minus sign in FORM* or write specified 
multi-punch and the last item of the field is a 
decimal point. The operation stops with the 
item in error and the statement is aborted, 

- the specified program was not in the DUS 
directory or a ROLLOUT was attempted with one 
of the necessary system files missing* or a 
program containing compile-time errors was 

1oaded, 

- fcrror during 1/0 statement, Either a 
programming error or disk failure can cause 
this TRAP, See Appendix t. 
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A - an access sequentially by key was attempted before any indexed 
sequential access was made using the logical file, 

B * the READ mechanism ran off the eno of a sector without 
encountering a physical end of record character (003), 

C * an operation on a closed logical file was attempted, 

D • a non-REAbr non-UELETEr indexed sequential operation was 
attempted where the specified key already existed in the index, 
t * an EOP mark without at least four zeroes was encountered, 

I * the index file specified in an OPEN statement does not exist 
on the specified a rivets). 

J - the index file found oy the OPEN statement does not reside in 
the correct physical location on the disk (index files may never 
be movedf they must always be re-created), 

K - a null key was supplied in an operation where the key may not 
be null, 

M - the data file specified in the OPEN statement does not exist 
on the specified drive(s), 

ivl • the data file name specified in the OPEN or PREPARE statement 
was null, 

0 - the index tile name specified in the OPEN statement was null, 

P " the file specified in the PREPARE statement had some type of 
DOS protection (either writer deleter or both), 

T - the tab value in the READ or wRITAB statement was off the end 
of the sector, 

U * an EOF mark was encountered while a record was being deleted 
in the indexed sequential file, 

V - one of the indexed sequential access overlays (Dbll/OVlr 
DBll/UVPr or DB11/0V3) could not be loaded by the DOS loader, 
w - an index file pointer sector could not be read, 

X - an index file header sector could not be read, 

Y • the R,I,B. of the data file pointed to by the index file could 
not oe read, (VWXY errors can be caused by parity errorsr the 
drive being switched off liner or the disk cartridge being swapped 
with another while an operation is taking place.) 


L-l 


APPENDIX 


t, INTERPRETER I/O TRAP CODES 



